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FOREWORD 

Due to the many requests for the Unravelled Series produced by Spectral 
Associates, and the fact that these books are rare and no longer in production, I 
have taken it upon myself to reproduce them in electronic .PDF (Adobe Acrobat®) 
format . 

I have re-disassembled the ROMs listed in this book, and added all the 
comments from the Original Extended Basic Unravelled Book. Some changes were made 
to make the book a little easier to read. 

1. The comments have been cleaned up some. In cases where a comments 
continued onto the next line, a * is placed in the Labels column, as well 
as a * at the beginning of each line of the comment. In cases where the 
previous comment used this format, a = was used. This was done in the 
original, but not all comments stuck to this format. 

2. I have renumbered all the linenumbers. Each Appendix starts at Line 0001. 

3. Some spell checking, and context checking was done to verify accuracy. 

4. I used the Letter Gothic MT Bold Font. This allows for display of Slashed 
Zeros. I thought it important to be able to distinguish between and 0. 

5. All the Hex code now shows the Opcodes. 

There were other minor changes that were made to make viewing a little 
better. If any discrepancies arise, please let me know so that I may correct the 
errors. I can be contacted at: mailto:wzydhek@internetcds.com 

About Me 

My name is Walter K. Zydhek. I've been a Computer Hobbyist since 1984 when I 
received my 1 st Tandy Color Computer 2 for Christmas. It had 32K of ram, Cassette, 
and one Cartridge. I quickly learned to program in Basic and then moved into 
Assembly . 

Over the next few years, I saved to purchase the Multi-Pak Interface, Disk 
Drives, Modem, OS-9, and various Odds and Ends. 

I moved to Tampa Florida and in the move, My CoCo was damaged. I then 
replaced it with the CoCo 3. WOW what a difference. I added the 512K Ram Upgrade, 
A CM-8 color monitor, and joined a CoCo Club. Can anyone from Tampa, Florida tell 
me the name? 

I had a couple of close friends that helped me explore the world of CoCo and 
by this time, I knew that my CoCo would be my friend forever. I give special 
thanks to Steve Cohn, who helped me get started with ADOS. Two other people who's 
names I can't remember were very beneficial to my mastering of the CoCo. 

Shortly after getting my CoCo 3, I started BBS'ing.. Wow, a whole new world.. 
My knowledge just kept growing.. 
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A few years later, I moved to Oregon, then to Phoenix, Arizona to attend 
school. I studied Electronics Technology at Phoenix Institute of Technology. In 
the second year, we studied Micro-processor Theory. For our labs, we just happen 
to use the Tandy Color Computer 3 (for studying 6809 Processors) . I had it made. 
In this class I added an EPROM programmer/reader to my list of hardware. My 
favorite instructor, Gary Angle & I spent many hours sharing information on the 
CoCo . At one time, we shared a joint project to disassemble ROMs from an 
industrial machinery which used the 6809 Processor. Using the CoCo to read the 
ROMs to work with. 

I even had a BBS running under OS-9 at one time. RiBBS I think it was. Very 
similar to QuickBBS and RemoteAccess BBS for the PC. 

In 1991, I finally converted over to PC, but never forgetting my CoCo. About 
5 years ago, My CoCo and all related material was stolen from me. And the CoCo 
world was just a memory. 

In the last 2 Years, my love for the CoCo has re-kindled. I have been 
partially content to use a CoCo Emulator for my PC. I tried the CoCo 2 Emulator by 
Jeff Vavasour. This was OK, but a lot was left out. I then purchased the CoCo 3 
Emulator. Much better, but would not use "Double Sided Disks". Although it did 
have a Virtual Hard Drive for use in OS-9. 

I then wanted to ^better' the CoCo Emulator, add use of PC hardware, Add 
Double Sided Disk functionality, and even make it Windows Native, instead of a Dos 
Box. Unfortunately the I could not get the source code for the CoCo 3 Emulator. 

I then turned to Paul Burgin' s Dragon 2/Coco 2 Emulator. This had source code 
available and with a small $20.00 donation, was able to get the source code to 
additional portions of his program. I have tinkered with it, but came to 
understand that I needed more info on the CoCo. I have looked all over the net and 
found quite a lot of useful information, but what I really needed was the 
Unravelled Series. 

I was able to find someone that had Extended Basic Unravelled and Disk Basic 
Unravelled (He sent them to me for free) . And a friend of mine had Super Extended 
Basic Unravelled (A copy I gave him years ago) . Unfortunately, the books are not 
in the best of shape, and the type is hard to read, and with so many people looking 
for the books, I decided to re-do them in Electronic format. 

I ask everyone that obtains copies of this electronic document to PLEASE give 
freely. These books are for educational/informational use only. These books are 
no longer in publication and Spectral Associates no longer in business. Do not use 
these books for financial gain, as that would most certainly abuse the Copyright 
Laws that I have already bruised by re-producing them. 

Other than that, enjoy the books! ! I'll add more information to them as I 
get it. I plan on adding more Memory Map information, as well as hardware info in 
the coming months.. But for now, take advantage of this fine resource. 



Walter K. Zydhek 
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INTRODUCTION 

BASIC Unravelled is a book that has specifically been written in order to 
provide the Color Computer user with a detailed, commented source listing of Color 
BASIC. Many entry points and useful routines for doing functions, which are 
required in machine language, have been detailed. Information contained in the book 
is extremely valuable and useful for anyone attempting to use BASIC integrated with 
machine language routines of their own. If there are some functions or facets of 
BASIC, which are too slow or awkward for the user, he needs to have a good idea as 
to what is going on in Color BASIC in order to be able to merge his routine with 
the routines, which are in color BASIC. There are many times when a person wants to 
know exactly what is going on in BASIC for a certain function such as clearing the 
screen or outputting a character to the screen. The information provided in BASIC 
Unravelled will allow the user to determine exactly what BASIC is doing under these 
circumstances. He will get an extremely good, in depth, basic knowledge of BASIC 
and be able to use that in any application he has in mind. 

This book will not explain how to make the BASIC interpreter or give a 
detailed in depth knowledge of how a BASIC interpreter works. It assumes that the 
user is an experienced machine language programmer, understands 6809 assembly 
language inside and out, and will understand the nuances and programming 
terminology which is used in the comments included with each BASIC program line. Do 
not attempt to use BASIC Unravelled as a textbook in order to teach yourself how to 
write a BASIC interpreter. If you are a very good programmer you will be able to 
write your own BASIC interpreter following the in depth reading of the assembly 
listings and the comments included in this book, but it should not be taken as a 
text on how to write a BASIC interpreter. The book is primarily designed to explain 
Color BASIC so that somebody who has a fair knowledge of how an interpreter works 
will be able to determine exactly how Color BASIC works. BASIC Unravelled will 
explain major operating formats of the most useful routines in BASIC and will 
identify the tricks, which Microsoft has used in programming Color BASIC. If the 
reader has any questions concerning the hardware of the Color computer, he's 
referred to the FACTS book, published by Spectral Associates. This book contains 
detailed descriptions of the hardware of the Color Computer and how one uses 
software in order to enable or disable the various hardware functions of the 
computer . 

BASIC Unravelled will deal specifically with Color BASIC version 1.2 which is 
the version of Color BASIC released by Radio Shock, as of October 1983. The two 
earlier versions, version 1.0 and version 1.1, have only minor differences in 
relation to version 1.2. These differences are described in detail in the 
appendices, and if the reader has any questions in regard to version 1.1 and 
version 1.0 is referred to those appendices. Extended BASIC and Disk BASIC are 
covered in the two final books of the BASIC Unravelled sequence published by 
Spectral Associates. Any questions that regard explicitly to Extended BASIC and 
Disk BASIC will be covered in those books. 
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COLOR BASIC - An Interpreter 

Color BASIC is a computer program, which is written in machine language, is 
very complex, and is extremely difficult to understand without some kind of helpful 
information. The idea behind writing a program, such as BASIC, is that BASIC is 
very easy to understand for the beginning user. Machine language, unfortunately, is 
very difficult to use and takes considerable amount of practice in order to get 
familiar with it. Therefore, BASIC is the language, which is provided with most 
computers when they are sold to the general public. As the user gets more and more 
familiar with BASIC, more and more questions generally arise as to how BASIC 
functions. That is one of the main purposes of the book — to explain to the user 
exactly how Color BASIC, the Interpreter, works. 

It is assumed that the reader is familiar with the manner in which the 
Interpreter functions. He at least knows the basic overall method of how an 
interpreter works in that the lines must be numbered, the interpreter executes 
these lines one after the other, and transfers control with GOTO, GOSUB and other 
similar statements. BASIC is an interpretive language related to the direct 
commands we are executing. BASIC executes a command by taking the last line typed 
to it and analyzing the line working from left to right looking for keywords and 
expressions, which it recognizes. Every time it encounters a keyword such as PRINT 
(or ? which is the abbreviation for PRINT) , it interprets this word into a command, 
which means something to BASIC. Command words are stored in memory with bit 8 set 
to tell BASIC that it is a command word, or keyword (token) . As a program line is 
entered into RAM memory through the use of the enter key, BASIC takes the line 
number and searches through memory, until it finds the same number, or the number 
just greater. If it is the same line number, then the entire line in memory is 
deleted and a new line is inserted into memory. In the preinterpreted state all the 
keywords are replaced with the single character token of the keyword. This allows 
the interpreter to store commands in the most memory efficient form. The only data 
stored is the data typed in by the programmer such as strings, pointers to the 
variables, and the keywords. PRINT, even though it takes five characters to type, 
only takes one character in memory. 

BASIC is called an interpreter because the actual execution of the 
instructions is done by analyzing the keyword that needs to be executed in the 
program line, then executing that keyword under the control of a series of 
subroutines. This is a trade-off, which results in very memory-efficient storage 
programs but longer execution times that would be true of a machine language 
program. Because Color BASIC uses tokens in memory and stores them on I/O devices 
whenever a program is loaded and saved, the actual coding of data on tape or in 
memory is not transferable to other Machines. It is generally not possible to use 
BASIC instructions typed in from other machines. It is not assumed that the reader 
is very familiar with all the weaknesses and strengths of the BASIC interpreter as 
opposed to a compiled language. No effort will be made to explain the differences 
between compilation and interpretation except to make note of the fact that many of 
the weaknesses of the BASIC interpreter stem from the fact that it is not compiled; 
that is, that the program is not converted into machine language and executed in 
one pass after it is converted into machine language. Each time a statement has to 
be interpreted with the BASIC interpreter, the interpreter must look up the 
functions that need to be interpreted, find out what they are, calculate any 
numerical results that are necessary as a result of the interpretation, print 
things to the screen and so forth, and then continue to the next statement. This is 
one of the main weaknesses of an interpreter-it is slow. Every time a statement has 
to be interpreted the some slow process has to take place. A perfect example of 
this is the determination of the value of a variable. BASIC stores its variables in 



COLOR BASIC UNRAVELLED II COLOR BASIC - An Interpreter ORIGIN: SPECTRAL ASSOC 

REVISED : 12/13/99 WALTER K ZYDHEK 

a large table directly after the BASIC program. These tables have the variable 
tagged by its name, that is the one or two character ASCII sequence which is 
defined in the program such as: AA, Al, X, Y, etc. These variables are listed one 
after the other in the variable table and every time the BASIC program makes 
reference to a variable, BASIC must start at the beginning of the variable table 
and search through the entire length of table until it determines where that 
variable is. If a program were compiled, the program would know exactly where the 
variable is and wouldn't have to go searching through the table in order to find 
it. Obviously if the variable was located near the end of a very long variable 
table, a substantial amount of time will be consumed every time the BASIC program 
makes reference to this variable. This is one reason why it's convenient to put the 
variables which are the most often used in a BASIC program, at the very beginning 
of the program. Another example of the slowness of an interpreter is every time you 
make program control transfers such as GOTO or GOSUB, the program has to search 
through the entire length of the BASIC program in order to find where the 
destination line number is. If the line number happens to be just before the point 
where the BASIC program starts searching, the entire program will have to be 
searched through in order to determine where the program line is and then transfer 
control there. As you can see, this will waste a lot of time. 

Why then, you would ask, do we use BASIC programs in the first place? The 
primary reason is because of the fact that BASIC is user friendly. It is simple to 
learn and it is simple to program. And even if it's slow, it still provides a very 
powerful tool for the user. It is very easy to develop and test programs and takes 
only a fraction of the time involved in what it would take to develop a comparable 
length machine language program. The penalty, of course, is the speed and the size 
of the final program. 
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INTERPRETER MECHANICS 

The Interpreter has various statements, commands, and functions, which are 
used in order to process, manipulate or otherwise use data. The overall goal of any 
computer program is the manipulation and movement of data in the memory of the 
computer and the transference of that data to an input/output device such as the 
screen, a disk file, or a cassette tape. Commands will tell the Color Computer to 
do something with the program. Sample commands would be LIST, RUN, STOP, and 
CONTINUE. Statements are used to operate on the data or program, which is in the 
Color Computer at the time. Examples of statements are CLEAR, DATA, DIM, END, 
GOSUB, INPUT, and so forth. Functions provide another manner that BASIC statements 
can be used to control the Color Computer. Intrinsic functions provided by BASIC 
are used to operate on string or numeric data and produce a result, which will be 
useful. Many of these functions are mathematical functions or string manipulation 
functions which will form substrings based upon certain subsets of the string in 
question. The arguments of these functions are always enclosed in parentheses. The 
argument of any function is the value which is being manipulated by the function 
and sometimes there may be more than one argument in any particular function, such 
as MIDS, which may have three arguments. Often arguments may be left out and BASIC 
will supply default values. These default values can be found by looking at the 
routine in BASIC which controls that particular function and you can see whether or 
not a default value is allowed for. Sometimes a default value is not allowed, and 
if a value is not given BASIC will generate an error. Some examples of functions 
are ABS, ASC, SIN, COS, RIGHT$, LEFT$, etc. 

The commands and functions of BASIC must be identified to the computer in a 
way that they can be understandable by the machine. The machine cannot understand 
PRINT, LIST, and RUN, it can only understand numbers. Therefore, there must be some 
way of identifying the commands and functions to the computer so that it knows that 
these are commands and functions. The method that most BASIC interpreters use in 
order to identify commands and functions is to identify them with a number from 128 
to 255. The user will notice that these numbers are the equivalent of an 8-bit byte 
with bit 7 set. This is a very convenient way of identifying and abbreviating the 
commands and functions, because the numbers from to 127 are the normal ASCII 
symbols used by BASIC. The numbers from 128 to 255 represent graphic symbols, which 
are rarely used in ASCII strings. These abbreviations for the BASIC commands and 
functions are called tokens. You will find in the BASIC listing a table of tokens 
and the respective addresses where command of BASIC is transferred when a certain 
token is encountered in an interpreted line. These are referred to as the 
dictionary of commands and the dictionary of dispatch jump addresses. Color BASIC 
created a problem when BASIC was written because of the fact that so many commands 
were required because of the graphics routines and the disk routines that 128 
different commands would not suffice. Therefore, a novel method of expanding the 
number of tokens available by using the token $FF as a special pre-token marker. 
There are two sets of tokens in Color BASIC, primary and secondary tokens. Primary 
tokens will have a value from 128 ($80) to 254 ($FE) . If an $FF token is 
encountered in an input line it signifies that the byte immediately following the 
$FF is the secondary token in question. This can be confusing if you are not 
careful so you must be aware of the fact that secondary tokens require two bytes, 
an $FF to identify it as a secondary token and then a number from 128 to 254 
immediately after it which identifies the actual token number. Secondary tokens are 
used to keep track of the intrinsic functions, whereas the primary tokens are used 
to keep track of commands and statements. 

When you type LIST, the computer lists your program; you see the words PRINT, 
LIST, NEW, LEFT, etc., spelled out on the screen for you. When the program 
statements are stored in the computer's memory these words are not spelled out. The 
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tokenized value of these words is what is stored in the memory of the computer. 
There are two routines in BASIC called crunch and uncrunch which will tokenize or 
detokenize the BASIC input line. When you list the line to the screen, uncrunch is 
called and the tokens are detokenized and converted into ASCII strings which are 
representations of the tokens. When you type a program line into the computer from 
the keyboard and then hit ENTER to store it into the computer's memory, crunch is 
called and it tokenizes the line. PRINT, LIST, etc., are crunched down from ASCII 
representations of those words into tokens. This explains why when you use a 
monitor to look at an actual BASIC program which is stored in the memory of the 
computer you will see ASCII strings and PRINT literals or the prompts for input 
statements spelled out as ASCII words, but you will see graphics blocks interlaced 
throughout your program. These graphics blocks are the tokens, which have been 
crunched by BASIC and stored in the computer. Later on you will see in the disk or 
in the cassette versions of input/output routines either crunched methods of saving 
the program or ASCII saves. The crunched method of saving the program is the normal 
method where the BASIC program is merely taken directly from the memory of the 
computer and stored onto the tape or disk. The ASCII save is where the program is 
taken from the memory of the computer, uncrunched and then saved on the tape. 
Generally, when you want to transfer BASIC programs from different computers, i.e., 
Radio Shack to an Apple, Atari or vice versa, you will have to move the files back 
and forth in ASCII format because all of the tokens for the different machines will 
have different values, not to mention different functions. 

BASIC program lines are stored in RAM according to the following rules: 

1. Start of text is a zero byte. 

2. Each program line is preceded by a two-byte RAM link containing the 
address of the first byte of the next line and a two-byte line number. 

3. The compressed (crunched) text is followed by a zero byte. 

4. End of text is stored as two zero link bytes. 

Now its time to investigate the process, which is used by BASIC in order to 
interpret the program line. There is a main program loop in BASIC, which is 
referred to as the command interpretation loop. In this loop commands and 
statements are evaluated. The token is decoded to determine where the routine is 
which must be jumped to in order to perform the particular function that needs to 
be evaluated. The input into the command interpretation loop is taken from console 
in. Therefore, a clever machine language programmer would be able to have the input 
to BASIC taken not from the memory of the machine but potentially from a disk file 
or a cassette file or some other input device, if desired. One of the benefits, if 
you want to look at it that way, of Color BASIC is that various modules can be 
added on to BASIC very easily. That is why it is possible to buy extended BASIC, 
plug it into the computer, turn it on and have it work with no hardware 
modification. Disk BASIC may be added and provision has even been given for a user 
add-on. The primary and secondary tokens have a dictionary table, which is the 
ASCII representation of the various commands and functions spelled out in the 
memory of the computer. The last byte of the command or function, such as PRINT or 
LIST, has bit 7 set. This is done so that BASIC can look through the lists of 
commands and functions and know when a particular command or function spelling is 
done. In this way an input command in a BASIC program is matched against the 
command, which is stored in the computer's memory. The computer knows if Extended 
BASIC, Disk BASIC or a user command table has been implemented. Therefore, it will 
search through the list of BASIC commands and if it does not find the command that 
you have typed in the list of BASIC commands, it will then go to Extended BASIC'S 
command table. If it doesn't find it there, it will go to Disk BASIC'S command 
table. If it doesn't find it there it will go to the User Supplied Command Table, 
if one has been given. When a command is found, there is an associated address in 
the dispatch table, which tells BASIC where control has to be transferred in order 
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to perform the various functions, which have been called from the BASIC program. 
These linkable command tables are explained in the memory map of the computer and 
are located at $120 (COMVEC) . When the first byte of a command table is equal to 
zero, it is an indication to BASIC that there are no further valid command tables 
following . 

BASIC determines where it is at any one particular time in RAM through the 
use of the BASIC input pointer. This is an address maintained in the direct page at 
address $A5 . When BASIC wants to get another character from a BASIC input line in 
order to determine what function or command needs to be interpreted or to get data 
or anything else from a BASIC program, it gets this data from the BASIC input 
pointer. This is done by executing the statement JSR $9F. This is a small routine 
which is moved into the direct page from ROM when BASIC is initialized, and when 
you call this routine it will increment the BASIC input pointer by one, fetch a 
character from the address pointed to by the BASIC input pointer, load it into 
accumulator A and then jump back into the main BASIC ROM. The point at which it 
jumps back into the main BASIC ROM will determine whether the character, which has 
been fetched from the BASIC program, is numeric. If the character is numeric, the 
carry flag will be set. Most people are familiar with the Extended BASIC PCLEAR 
bug, which was caused when a program was written which would PCLEAR memory during 
the execution of the program. The PCLEAR statement will cause the BASIC program to 
be moved up or down in RAM if more or fewer pages of graphic RAM are PCLEARED as a 
result of the statement. Unfortunately, the BASIC program was moved up or down in 
RAM, but the BASIC input pointer was never moved, therefore the program would be 
moved to a new place, but the BASIC input pointer would not be moved a 
corresponding amount. Therefore, BASIC would begin interpreting new program lines 
from garbage and you would usually get syntax errors. 

The stack is used primarily for normal 6809 functions in the Color Computer 
It does, however, have several auxiliary functions, which it must provide in order 
to support Color BASIC. For example, when you use a FOR/NEXT loop, 18 bytes of data 
are stored on the stack so that you can keep track of the index pointer, step 
value, the initial value that you started the loop at, and the terminal value at 
which the FOR/NEXT loop will be stopped. All GOSUB return addresses, which are 
comprised of 5 bytes, are stored on the stack. The expression evaluation routine 
uses the stack to store many different bytes and floating point numbers on it 
during the course of the evaluation of an expression. There are several routines in 
this BASIC and Extended BASIC such as PAINT, BACKUP, COPY, etc., which also use the 
stack for temporary storage. The experienced machine language programmer will 
realize that there can be problems with using the stack for temporary storage and 
variables. If stack storage is used in recursive loops and there are no controls 
placed upon the limit of the recursive loops, the stack can grow in an uncontrolled 
manner and will eventually crash into your program and destroy it. For this reason 
there is a special routine provided in BASIC, which determines if there is enough 
free RAM to store the amount of data, which you want to store on the stack. This is 
required so that if you keep storing data on the stack YOU can merely check to 
verify that there is enough free RAM left in the machine in order to store the data 
on the stack. If there is not enough free RAM, an OM error results and you exit 
from the program in a controlled manner. There are, at this time, at least two bugs 
known to the author, which will create problems during the execution of a program. 
Both of these bugs are in the Extended BASIC ROM and neither one has been fixed by 
version 1.1 of Extended BASIC. The first bug is in the PAINT routine, which uses 6 
bytes of stack to remember to paint a particular weird angle, which has been left 
in an odd shaped paint figure. The paint routine only checks to see if there are 4 
bytes of free RAM each time it stores 6 bytes of data on the stack. As such, 
problems can occur in some very weird shaped paint pictures and the stack could 
actually creep down and either destroy some variables or parts of the BASIC program 
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and the user would never know what hit him. The second bug is in the PCOPY 
statement, which will allow the user to PCOPY from page one to page five if only 
four pages have been PCLEARED. This is interesting and causes a really good 
explosion that may completely destroy the BASIC program. 
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VARIABLES 

Variables are used by BASIC to keep track of quantities that may take on 
different values or change during the course of the execution of the program. COLOR 
BASIC uses only one type of numeric variable, SINGLE PRECISION. Many other BASICS 
use different types of variables including integer type and double precision. When 
COLOR BASIC was first developed, the decision was made not to allow double 
precision or integer type variables because it would take up too much room in the 
ROM in order to support these variables types. As a result, we have a smaller and 
more compact ROM but you lose the efficiency and power that is afforded the use of 
double precision and integer variable types. No matter which type of variable you 
have, either single precision or string variable, five bytes are allocated for the 
storage of this variable in the memory of the computer. All variables are 
identified by a two-character ASCII string, which is the variable name. Variables 
may have more than two characters in their name but the characters following the 
second character will always be ignored. This may lead to some confusion when 
you're writing a BASIC program, but limiting the number of the characters in the 
variable name to two makes it much more compact and simple to store the variable 
'in the memory of the computer. Any useful program has to deal with alphanumeric 
data. BASIC has a set of functions to deal with these data. Also, all alphanumeric 
data may be expressed as a continuous connection of characters, which is viewed by 
BASIC as the value of a single variable. 

Color BASIC has a $ notation which is used to express variables which are 
strings of alphanumeric data. All of the rules, which apply to normal variables, 
apply to the string variable. 

The limitation on the number of characters that can be stored in a string is 
255. The accumulation of characters from an I/O device and the construction of data 
is accomplished by the concatenation of strings. The operator that is used is +. 

Space is allocated for variables only as they are encountered. It is not 
possible to allocate an array on the basis of 2 single elements; hence, the reason 
to execute DIM statement before array references. Seven bytes are allocated for 
each simple variable whether it is a string, number, or user defined function. Each 
string variable is defined by a five-byte descriptor. This descriptor has five 
bytes only so that it may be the same length as the single precision floating point 
variable. Only three of the bytes in the descriptor are actually used to define a 
string. The other two bytes are wasted but are necessary in order to maintain the 
some length of descriptor as the floating-point descriptor. Byte zero represents 
the length of the string and may be any number from to 255. If the length of the 
string is equal to 0, it indicates a null string. Bytes two and three of the string 
descriptor are a pointer to the absolute RAM address of the start of the string. 
When one uses the instruction in BASIC, the access which is returned is the address 
of the descriptor and this is how you address the string, The absolute RAM address 
of the string may be anywhere in RAM so that the string may be located in the BASIC 
program itself, in the string space, or it may even be located in the random buffer 
file if you have a disk system. If you've been using BASIC for any length of time 
you may have become familiar with the time delays that occur whenever the BASIC 
program does what is called housekeeping or garbage collection. What the computer 
does is to sort all of string space and throws away all of the null strings. This 
can very often be a long, time-consuming process, which causes the computer to sit 
and do what appears to be nothing or to be in a hung up state for an extended 
period of time. 

Variables are stored in the variable table, which is immediately following 
the BASIC program in the memory of the computer. Each variable requires seven bytes 
to hold its space in the variable table. The first two bytes are the variable name, 
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the next five bytes are the actual value of the variable if it's a floating point 
number or it's the five byte descriptor if it's a string variable. The variable 
names as described above contain two ASCII characters. The method that is used to 
determine whether the number is a floating point variable or a string variable is 
the condition of the first variable letter. If this first letter has bit seven set, 
the variable is a string. If bit seven of the first letter of the variable name is 
not set, that variable is a floating point variable. This is how BASIC determines 
the type of variable as it searches for a variable in the variable tables. This 
searching method should be kept in mind when writing BASIC programs so that you can 
get maximum efficiency and speed out of your program. Variables that are used most 
often should be located near the top of the table since BASIC starts at the top and 
works its way to the bottom when it's searching for a variable name. Looking in the 
BASIC disassembly of expression evaluation, you will find the method that is used 
in order to find a variable name (LB357) . BASIC gets the variable name, which is 
found by stripping it off of the BASIC line. It then points itself to the beginning 
of the table and looks all the way through the variable table until it finds a 
match. If no match is found, then it inserts a variable in the variable table and a 
value of or a null string if its a string variable is assigned to it. As you can 
see, this method can be very slow and cumbersome if you have variables that are 
very often used and are located at the bottom of a very large variable table. 
Therefore, if at all possible, define the variables, which are to be used most 
often at the beginning of your program, and this will cause an increase in speed of 
your BASIC program. 

Floating Point Numbers. Single precision variables are stored in the computer 
as floating point numbers, which are comprised of an exponent, a four-byte mantissa 
and the sign of the mantissa. In this way, numbers in the approximate range 1E-39 < 
X < 1E+39 may be saved. A fifth mantissa byte, the sub byte, (FPSBYT) , is used in 
calculations to achieve 9 significant digits of accuracy. 

Floating point numbers are always stored with the mantissa "normalized", that 
is the mantissa is shifted to the left until a "1" is in the high order bit (7) of 
the most significant byte. When the mantissa sign in not placed into the high order 
bit of the most significant mantissa byte, the number is "unpacked" . 

The exponent is computed such that the mantissa 0=1x1. It is stored as a 
signed 8 bit binary plus a bias of $80. Negative exponents are not stored 2's 
complement. Maximum exponent is 10 38 and minimum exponent is 10- 39 , which is stored 
as $00. A zero exponent is used to flag the number as zero. 

Exponent Approximate Value 

FF 
A2 
7F 
02 
00 

Since the exponent is really a power of 2, it should best be described as the 
number of left shifts (EXP > $80) or right shifts (EXP < = $80) to be performed on 
the normalized mantissa to create the actual binary representation of the value. 



10 


38 


10 


10 


10- 


_1 


10- 


.36 


10- 


_39 
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Example of Floating Point Numbers 



Exponent 


MS 


MANTISSA 


LS 


Sign 


1E38 


FF 


96 


76 


99 


52 


00 


4E10 


A4 


95 


02 


F9 


00 


00 


2E10 


A3 


95 


02 


F9 


00 


00 


1E10 


A2 


95 


02 


F9 


00 


00 


1 


81 


80 


00 


00 


00 


00 


.5 


80 


80 


00 


00 


00 


00 


.25 


7F 


80 


00 


00 


00 


00 


1E-4 


73 


Dl 


B7 


59 


59 


00 


1E-37 


06 


88 


1C 


14 


14 


00 


1E-38 


02 


D9 


C7 


EE 


EE 


00 


1E-39 


00 


AO 


00 


00 


00 


00 





00 


00 


00 


00 


00 


XX 


-1 


81 


80 


00 


00 


00 


FF 


-10 


84 


AO 


00 


00 


00 


FF 



Actual floating point BASIC variables are stored in 5 bytes, rather than 6 
bytes as in the floating accumulator. Upon examination, one will note that the most 
significant byte of the mantissa is always set. If we always assure the number will 
be in this format, we can use that bit to indicate the sign of the mantissa — 
thus, freeing the byte used for sign. This is referred to as "packed" format. 

The contents of the floating accumulator may be converted to a double byte 
integer by calling a subroutine INTCNV which is located at $B3ED The integer is 
returned in ACCD . An integer can be converted back to floating by loading the two 
most significant bytes ACCD then calling GIVABF at $B4F4 . 

Array Variables. Array variables need not be declared with a DIM statement if 
they have only one dimension and contain fewer than 10 elements. Each element in an 
array requires 5 bytes of storage and the format of the 5-byte block is the same as 
simple variables. Arrays are stored in the array table and each array is preceded 
by a header block of 5+2*N bytes where N = number of dimensions in the array. The 
first two bytes contain the name of the array, the next two bytes contain the total 
length of array items and header block, the fifth byte contains the number of 
dimensions and, finally, 2 bytes per each dimension contain the length of the 
dimension . 

If large arrays are defined and initialized first before simple variables are 
assigned, much execution time can be lost moving the arrays each time a simple 
variable is defined. The best strategy to follow in this case is to assign a value 
to all known simple variables before assigning arrays. This will optimize execution 
speed. 
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CONSOLE INPUT/OUTPUT 

Console input and console output are the data channels that are used when 
transferring information into and out of the computer. There are various different 
methods that are used by different computer manufacturers in order to control the 
transmission or the flow of data into and out of the computer. It has become useful 
in most of the jargon to refer to the process of transferring data into or out of 
the computer as console input or console output. By using a method such as this, 
one can merely call the console input function if one wants to get a character in 
Accumulator A, for instance, and then call the console output device and that 
character will be placed in the appropriate output device, be it cassette, disk, 
printer or even the screen. Obviously, something else has to be defined when using 
console in or console out, such as where we are going to send the character to, or 
from where we will get the character. The Color computer uses the concept of a 
device number (DEVNUM) in order to define from where the character is coming or 
where it is going. 

The Color Computer has five different device types associated with it: device 
number is the screen; -1 is the cassette; -2 is the Line Printer; -3 is the DLOAD 
(RS232 Download) option and device numbers 1 through 15 represent Disk files. 
Device number 16 is not accessible to the user because it is used by the system as 
a temporary scratch disk input/output file. The typical method that one uses to 
access the console in or console out function is to initially define the device 
number and then jump to the console input or console output and either get the 
character back into Accumulator A if you are using console in or to transmit the 
character to the appropriate output device in Accumulator A if using console out. 

CONSOLE INPUT - Get a character from an input buffer, which has been defined 
somewhere in the computer by the routine, which is being used. Generally speaking, 
one has to OPEN an input channel with the open command. This is not necessary if 
one is using the screen because the input from the screen comes from the keyboard, 
which is always an open channel, and it is not necessary to either open or close 
it. However, if one is trying to use a cassette file, when the cassette file is 
open for input, there is a buffer established in the memory of the computer which 
will allow a block of data to be read from the cassette tape. When the user wants a 
byte of data out of that buffer, he simply calls console in and the byte is 
returned from the buffer. In this method the buffer is systematically emptied 
until, when the last character is taken from the buffer, the computer automatically 
attempts to read another block of data from the cassette file. If further blocks of 
data are available, then the buffer is refilled and console in can get more data. 
If there is no longer any further data in the cassette file, then the EOF flag is 
set and the user is told that there is no longer any data to be gotten from that 
device. The same type of method is used with DLOAD and, of course, can't be used 
from the Line Printer, because the Line Printer is only an output device. The 
method used to transfer data into and out of Disk files will be explained in the 
Disk BASIC Unravelled. 

CONSOLE OUTPUT - Used to transmit data from the computer to an output device. 
All of the output devices as defined above may be used for outputting data. The 
method is very similar to the method used for inputting data from files. For 
example, if one is using a cassette file, an output buffer is established in the 
computer's memory. Characters are continuously placed in this output buffer until 
the buffer is filled with 255 characters. At that time the buffer is flushed, that 
is, the contents of the buffer are written to tape and further input to the buffer 
is prohibited until the data block is written to the selected device. Upon 
completion of the data block transfer, the character buffer is reset to a value, 
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meaning it is empty, and further data may be input into the buffer. This is the 
same method that is used by Disk and that method of outputting data to a disk file 
will be explained in Disk BASIC Unravelled. 

It should also be noted that you can not open a DLOAD file for output. That 
feature has not been implemented in the Color Computer — DLOAD, can only be used 
to input data. 
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0001 




0002 




0003 




0004 




0005 




0006 




0007 




0008 




0009 




0010 




0011 




0012 




0013 




0014 




0015 




0016 




0017 




0018 




0019 




0020 




0021 




0022 




0023 




0024 




0025 




0026 




0027 




0028 




0029 




0030 




0031 




0032 




0033 




0034 




0035 




0036 




0037 




0038 




0039 




0040 




0041 




0042 




0043 




0044 




0045 


0000 


0046 




0047 




0048 


0000 


0049 


0001 


0050 


0002 


0051 


0003 


0052 


0004 


0053 


0005 


0054 


0006 


0055 


0007 


0056 


0008 


0057 


0009 


0058 


000A 


0059 


000B 


0060 


000D 


0061 


000F 


0062 


0011 


0063 




0064 


0013 


0065 


0017 


0066 


0019 


0067 


001B 


0068 


001D 


0069 


001F 


0070 


0021 


0071 


0023 


0072 


0025 


0073 


0027 


0074 


0029 


0075 


002B 


0076 


002D 


0077 


002F 


0078 


0031 


0079 


0033 


0080 


0035 


0081 


0037 


0082 


0039 


0083 


003B 


0084 


003D 


0085 


003F 



000C 
0020 

003A 
045E 
00FA 
00FA 

2600 
0020 
0100 
0012 
1200 
0023 
004A 
0044 
0119 
0010 
0020 



0021 
008C 
0086 



FF00 
FF20 
FF20 
FF40 
FF48 
FFC0 



EXBAS 
BASIC 
ROMPAK 

BS 

CR 

ESC 

LF 

FORMF 

SPACE 

STKBUF 
DEBDEL 
LBUFMX 
MAXLIN 

DOSBUF 
DIRLEN 
SECLEN 
SECMAX 
TRKLEN 
TRKMAX 
FATLEN 
GRANMX 
FCBLEN 
INPFIL 
OUTFIL 
RANFIL 



* PSEUDO PSEUDO OPS 
SKP1 EQU $21 
SKP2 EQU $8C 
SKP1LD EQU $86 



* REGISTER ADDRESSES 



EQU 


$8000 


EQU 


$A000 


EQU 


$C000 


EQU 


8 


EQU 


$D 


EQU 


SIB 


EQU 


$A 


EQU 


$C 


EQU 


$20 


EQU 


58 


EQU 


$45E 


EQU 


250 


EQU 


$FA 


EQU 


$2600 


EQU 


32 


EQU 


256 


EQU 


18 


EQU 


SECMAX*SECLEN 


EQU 


35 


EQU 


6+(TRKMAX-l)*2 


EQU 


(TRKMAX-1)*2 


EQU 


SECLEN+25 


EQU 


$10 


EQU 


$20 


EQU 


$40 



PIA0 


EQU 


$FF00 


PIA1 


EQU 


$FF20 


DA 


EQU 


PIA1+0 


DSKREG 


EQU 


$FF40 


FDCREG 


EQU 


$FF48 


SAMREG 


EQU 


$FFC0 




ORG 







SETDP 





ENDFLG 


RMB 




CHARAC 


RMB 




ENDCUR 


RMB 




TMPLOC 


RMB 




IFCTR 


RMB 




DIMFLG 


RMB 




VALTYP 


RMB 




GARBFL 


RMB 




ARYDIS 


RMB 




INPFLG 


RMB 




RELFLG 


RMB 




TEMPPT 


RMB 


2 


LASTPT 


RMB 


2 


TEMPTR 


RMB 


2 


TMPTR1 


RMB 


2 


** FLOATING 


POINT 


ACCUMULATOR #2 


FPA2 


RMB 


4 


BOTSTK 


RMB 


2 


TXTTAB 


RMB 


2 


VARTAB 


RMB 


2 


ARYTAB 


RMB 


2 


ARYEND 


RMB 


2 


FRETOP 


RMB 


2 


STRTAB 


RMB 


2 


FRESPC 


RMB 


2 


MEMSIZ 


RMB 


2 


OLDTXT 


RMB 


2 


BINVAL 


RMB 


2 


OLDPTR 


RMB 


2 


TINPTR 


RMB 


2 


DATTXT 


RMB 


2 


DATPTR 


RMB 


2 


DATTMP 


RMB 


2 


VARNAM 


RMB 


2 


VARPTR 


RMB 


2 


VARDES 


RMB 


2 


RELPTR 


RMB 


2 


TRELFL 


RMB 


1 



BACKSPACE 
ENTER KEY 
ESCAPE CODE 
LINE FEED 
FORM FEED 
SPACE (BLANK) 

STACK BUFFER ROOM 

DEBOUNCE DELAY 

MAX NUMBER OF CHARS IN A BASIC LINE 

MAXIMUM MS BYTE OF LINE NUMBER 

RAM LOAD LOCATION FOR THE DOS COMMAND 

NUMBER OF BYTES IN DIRECTORY ENTRY 

LENGTH OF SECTOR IN BYTES 

MAXIMUM NUMBER OF SECTORS PER TRACK 

LENGTH OF TRACK IN BYTES 

MAX NUMBER OF TRACKS 

FILE ALLOCATION TABLE LENGTH 

MAXIMUM NUMBER OF GRANULES 

FILE CONTROL BLOCK LENGTH 

INPUT FILE TYPE 

OUTPUT FILE TYPE 

RANDOM/DIRECT FILE TYPE 



OP CODE OF BRN 
OP CODE OF CMPX 
OP CODE OF LDA # 



SKIP ONE BYTE 
! - SKIP TWO BYTES 
- SKIP THE NEXT BYTE 



AND LOAD THE VALUE OF THAT BYTE INTO ACCA THIS 
IS USUALLY USED TO LOAD ACCA WITH A NON ZERO VALUE 



PERIPHERAL INPUT ADAPTER #0 
PERIPHERAL INPUT ADAPTER #1 
DIGITAL/ANALOG CONVERTER 
DISK CONTROL REGISTER 
1793 CONTROL REGISTER 
SAM CONTROL REGISTER 



STOP/END FLAG: POSITIVE=STOP, NEG=END 
TERMINATOR FLAG 1 
TERMINATOR FLAG 2 
SCRATCH VARIABLE 

IF COUNTER - HOW MANY IF STATEMENTS IN A LINE 
*DV* ARRAY FLAG 0=EVALUATE, 1=D IMENS ION I NG 
*DV* *PV TYPE FLAG: 0=NUMERIC, $FF=STRING 
*TV STRING SPACE HOUSEKEEPING FLAG 
DISABLE ARRAY SEARCH: 00=ALLOW SEARCH 
*TV INPUT FLAG: READ=0, INPUT<>0 
*TV RELATIONAL OPERATOR FLAG 
*PV TEMPORARY STRING STACK POINTER 
*PV ADDR OF LAST USED STRING STACK ADDRESS 
TEMPORARY POINTER 

TEMPORARY DESCRIPTOR STORAGE (STACK SEARCH) 
(MANTISSA ONLY) 

FLOATING POINT ACCUMULATOR #2 MANTISSA 

BOTTOM OF STACK AT LAST CHECK 

*PV BEGINNING OF BASIC PROGRAM 

*PV START OF VARIABLES 

*PV START OF ARRAYS 

*PV END OF ARRAYS (+1) 

*PV START OF STRING STORAGE (TOP OF FREE RAM) 

*PV START OF STRING VARIABLES 

UTILITY STRING POINTER 

*PV TOP OF STRING SPACE 

SAVED LINE NUMBER DURING A "STOP" 

BINARY VALUE OF A CONVERTED LINE NUMBER 

SAVED INPUT PTR DURING A "STOP" 

TEMPORARY INPUT POINTER STORAGE 

*PV 'DATA' STATEMENT LINE NUMBER POINTER 

*PV 'DATA' STATEMENT ADDRESS POINTER 

DATA POINTER FOR 'INPUT' & 'READ' 

*TV TEMP STORAGE FOR A VARIABLE NAME 

*TV POINTER TO A VARIABLE DESCRIPTOR 

TEMP POINTER TO A VARIABLE DESCRIPTOR 

POINTER TO RELATIONAL OPERATOR PROCESSING ROUTINE 

TEMPORARY RELATIONAL OPERATOR FLAG BYTE 



FLOATING POINT ACCUMULATORS #3,4 & 5 ARE MOSTLY 
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0089 






0090 


0040 




0091 


0041 




0092 


0042 




0093 


0043 




0094 


0044 




0095 






0096 


0045 




0097 


0046 




0098 


0047 




0099 


0048 




0100 






0101 


004A 




0102 


004B 




0103 


004D 




0104 






0105 


004F 




0106 


0050 




0107 


0054 




0108 


0055 




0109 


0056 




0110 


005B 




0111 






0112 


005C 




0113 


005D 




0114 


0061 




0115 






0116 


0062 




0117 


0063 




0118 


0064 




0119 


0066 




0120 


0068 




0121 


006A 




0122 


006B 




0123 


006C 




0124 


006D 




0125 


006E 




0126 


006F 




0127 






0128 


0070 




0129 


0071 




0130 


0072 




0131 


0074 




0132 


0076 




0133 


0078 




0134 


0079 




0135 


007A 




0136 


007C 




0137 


007D 




0138 


007E 




0139 


0080 




0140 


0081 




0141 


0082 




0142 


0083 




0143 


0084 




0144 


0085 




0145 


0086 




0146 


0087 




0147 


0088 




0148 


008A 




0149 


008C 




0150 


008D 




0151 






0152 






0153 






0154 






0155 


008F 




0156 


0090 




0157 


0091 




0158 


0092 




0159 


0094 




0160 


0095 




0161 


0097 




0162 


0099 




0163 


009A 




0164 


009B 




0165 


009C 




0166 


009D 




0167 






0168 






0169 






0170 






0171 






0172 


009F 


0C A7 


0173 


00A1 


26 02 


0174 


00A3 


0C A6 



* USED AS SCRATCH 


PAD VARIABLES. 


** FLOATING 


POINT 


ACCUMULATOR #3 


V40 


RMB 


1 


V41 


RMB 


1 


V42 


RMB 


1 


V43 


RMB 


1 


V44 


RMB 


1 


** FLOATING 


POINT 


ACCUMULATOR #4 


V45 


RMB 


1 


V46 


RMB 


1 


V47 


RMB 


1 


V48 


RMB 


2 


** FLOATING 


POINT 


ACCUMULATOR #5 


V4A 


RMB 


1 


V4B 


RMB 


2 


V4D 


RMB 


2 


** FLOATING 


POINT 


ACCUMULATOR #0 


FP0EXP 


RMB 


1 


FPA0 


RMB 


4 


FP0SGN 


RMB 


1 


COEFCT 


RMB 


1 


STRDES 


RMB 


5 


FPCARY 


RMB 


1 


** FLOATING 


POINT 


ACCUMULATOR #1 


FP1EXP 


RMB 


1 


FPA1 


RMB 


4 


FP1SGN 


RMB 


1 


RESSGN 


RMB 


1 


FPSBYT 


RMB 


1 


COEFPT 


RMB 


2 


LSTTXT 


RMB 


2 


CURLIN 


RMB 


2 


DEVCFW 


RMB 


1 


DEVLCF 


RMB 


1 


DEVPOS 


RMB 


1 


DEVWID 


RMB 


1 


PRTDEV 


RMB 


1 


DEVNUM 


RMB 


1 


CINBFL 


RMB 


1 


RSTFLG 


RMB 


1 


RSTVEC 


RMB 


2 


TOPRAM 


RMB 


2 




RMB 


2 


FILSTA 


RMB 


1 


CINCTR 


RMB 


1 


CINPTR 


RMB 


2 


BLKTYP 


RMB 


1 


BLKLEN 


RMB 


1 


CBUFAD 


RMB 


2 


CCKSUM 


RMB 


1 


CSRERR 


RMB 


1 


CPULWD 


RMB 


1 


CPERTM 


RMB 


1 


CBTPHA 


RMB 


1 


CLSTSN 


RMB 


1 


GRBLOK 


RMB 


1 


IKEYIM 


RMB 


1 


CURPOS 


RMB 


2 


ZERO 


RMB 


2 


SNDTON 


RMB 


1 


SNDDUR 


RMB 


2 



:PACKED: ($40-$44) 



:PACKED: ($45-$49) 



:PACKED: ($4A $4E) 



*PV FLOATING POINT ACCUMULATOR #0 EXPONENT 
*PV FLOATING POINT ACCUMULATOR #0 MANTISSA 
*PV FLOATING POINT ACCUMULATOR #0 SIGN 
POLYNOMIAL COEFFICIENT COUNTER 
TEMPORARY STRING DESCRIPTOR 
FLOATING POINT CARRY BYTE 

*PV FLOATING POINT ACCUMULATOR #1 EXPONENT 
*PV FLOATING POINT ACCUMULATOR #1 MANTISSA 
*PV FLOATING POINT ACCUMULATOR #1 SIGN 

SIGN OF RESULT OF FLOATING POINT OPERATION 

FLOATING POINT SUB BYTE (FIFTH BYTE) 

POLYNOMIAL COEFFICIENT POINTER 

CURRENT LINE POINTER DURING LIST 

*PV CURRENT LINE # OF BASIC PROGRAM, $FFFF = DIRECT 

*TV TAB FIELD WIDTH 

*TV TAB ZONE 

*TV PRINT POSITION 

*TV PRINT WIDTH 

*TV PRINT DEVICE: 0=NOT CASSETTE, -1=CASSETTE 

*PV DEVICE NUMBER: -3=DL0AD, -2=PRINTER, 

-1=CASSETTE, 0=SCREEN, 1-15=DISK 
*PV CONSOLE IN BUFFER FLAG: 00=NOT EMPTY, $FF=EMPTY 
*PV WARM START FLAG: $55=WARM, OTHER=COLD 
*PV WARM START VECTOR - JUMP ADDRESS FOR WARM START 
*PV TOP OF RAM 
SPARE: UNUSED VARIABLES 

*PV FILE STATUS FLAG: 0=CLOSED, 1=INPUT, 2=0UTPUT 
*PV CONSOLE IN BUFFER CHAR COUNTER 
*PV CONSOLE IN BUFFER POINTER 
*TV CASS BLOCK TYPE: 0=HEADER, 1=DATA, $FF=EOF 
*TV CASSETTE BYTE COUNT 
*TV CASSETTE LOAD BUFFER POINTER 
*TV CASSETTE CHECKSUM BYTE 
*TV ERROR FLAG/CHARACTER COUNT 
*TV PULSE WIDTH COUNT 
*TV BIT COUNTER 
*TV BIT PHASE FLAG 
*TV LAST SINE TABLE ENTRY 

*TV GRAPHIC BLOCK VALUE FOR SET, RESET AND POINT 
*TV INKEY$ RAM IMAGE 
*PV CURSOR LOCATION 

*PV DUMMY - THESE TWO BYTES ARE ALWAYS ZERO 
*TV TONE VALUE FOR SOUND COMMAND 
*TV DURATION VALUE FOR SOUND COMMAND 



** THESE BYTES ARE MOVED DOWN FROM ROM 



CMPMID 

CMP0 

CMP1 

SYNCLN 

BLKCNT 

LPTBTD 

LPTLND 

LPTCFW 

LPTLCF 

LPTWID 

LPTPOS 

EXECJP 



RMB 


1 


RMB 


1 


RMB 


1 


RMB 


2 


RMB 


1 


RMB 


2 


RMB 


2 


RMB 


1 


RMB 


1 


RMB 


1 


RMB 


1 


RMB 


2 



INIT DESCRIPTION 

VALUE 

18 *PV 1200/2400 HERTZ PARTITION 

24 *PV UPPER LIMIT OF 1200 HERTZ PERIOD 

10 *PV UPPER LIMIT OF 2400 HERTZ PERIOD 
128 *PV NUMBER OF $55'S TO CASSETTE LEADER 

11 *PV CURSOR BLINK DELAY 

88 *PV BAUD RATE CONSTANT (600) 

1 *PV PRINTER CARRIAGE RETURN DELAY 

16 *PV TAB FIELD WIDTH 

112 *PV LAST TAB ZONE 

132 *PV PRINTER WIDTH 

*PV LINE PRINTER POSITION 

LB4AA *PV JUMP ADDRESS FOR EXEC COMMAND 



THIS ROUTINE PICKS UP THE NEXT INPUT CHARACTER FROM 
BASIC. THE ADDRESS OF THE NEXT BASIC BYTE TO BE 
INTERPRETED IS STORED AT CHARAD. 



INC <CHARAD+1 
BNE GETCCH 
INC <CHARAD 



*PV INCREMENT LS BYTE OF INPUT POINTER 

*PV BRANCH IF NOT ZERO (NO CARRY) 

*PV INCREMENT MS BYTE OF INPUT POINTER 



COLOR BASIC UNRAVELLED II 



APPENDIX A 
MEMORY MAP 



ORIGIN:SPECTRAL ASSOC 
REVISED:12/13/1999 WALTER K ZYDHEK 



0175 00A5 B6 

0176 00A6 
0177 

0178 

0179 00A8 7E AA 1A 



GETCCH 
CHARAD 



$B6 
2 



*PV OP CODE OF LDA EXTENDED 

*PV THESE 2 BYTES CONTAIN ADDRESS OF THE CURRENT 

CHARACTER WHICH THE BASIC INTERPRETER IS 

PROCESSING 
JUMP BACK INTO THE BASIC RUM 



0181 00AB 

0182 00AC 

0183 00AD 

0184 00AE 
0185 

0186 

0187 00AF 

0188 00B0 

0189 00B2 

0190 00B3 

0191 00B4 

0192 00B5 

0193 00B6 

0194 00B7 

0195 00B9 

0196 00BA 

0197 00BC 

0198 00BD 



VAB 
VAC 
VAD 
VAE 



RMB 
RMB 
RMB 
RMB 



0199 
0200 



00BF 
00C1 



0201 00C2 

0202 00C3 

0203 00C5 

0204 00C7 

0205 00C9 
0206 

0207 

0208 00CB 

0209 00CD 

0210 00CF 

0211 00D1 

0212 00D3 

0213 00D4 

0214 00D5 

0215 00D6 

0216 00D7 

0217 00D8 

0218 00D9 

0219 00DA 
0220 

0221 00DB 

0222 00DC 

0223 00DE 

0224 00DF 

0225 00E0 

0226 00E1 

0227 00E2 

0228 00E3 

0229 00E5 

0230 00E6 

0231 00E7 

0232 00E8 

0233 00E9 
0234 

0235 

0236 00EA 

0237 00EB 

0238 00EC 

0239 00ED 

0240 00EE 

0241 00F0 
0242 

0243 00F1 

0244 

0245 00F3 

0246 

0247 

0248 

0249 

0250 0100 

0251 0103 

0252 0106 

0253 0109 

0254 010C 

0255 010F 
0256 

0257 
0258 
0259 
0260 
0261 



3112 
3112 



EXTENDED BASIC VARIABLES 



TRCFLG 

USRADR 

FORCOL 

BAKCOL 

WCOLOR 

ALLCOL 

PMODE 

ENDGRP 

HORBYT 

BEGGRP 

GRPRAM 

HORBEG 

VERBEG 

CSSYAL 

SETFLG 

HOREND 

VEREND 

HORDEF 

VERDEF 



RMB 
RMB 
RMB 
RMB 
RMB 
RMB 
RMB 
RMB 
RMB 
RMB 
RMB 
RMB 
RMB 
RMB 
RMB 
RMB 
RMB 
RMB 
RMB 



LOW ORDER FOUR BYTES OF THE PRODUCT 
OF A FLOATING POINT MULTIPLICATION 
THESE BYTES ARE USE AS RANDOM DATA 
BY THE RND STATEMENT 



*PV TRACE FLAG 0=OFF ELSE=ON 

*PV ADDRESS OF THE START OF USR VECTORS 

*PV FOREGROUND COLOR 

*PV BACKGROUND COLOR 

*TV WORKING COLOR BEING USED BY EX BASIC 

*TV ALL PIXELS IN THIS BYTE SET TO COLOR OF VB3 

*PV PMODE'S MODE ARGUMENT 

*PV END OF CURRENT GRAPHIC PAGE 

*PV NUMBER OF BYTES/HORIZONTAL GRAPHIC LINE 

*PV START OF CURRENT GRAPHIC PAGE 

*PV START OF GRAPHIC RAM (MS BYTE) 

*DV* *PV HORIZ COORD - START POINT 

*DV* *PV VERT COORD - START POINT 

*PV SCREEN'S COLOR SET ARGUMENT 

*PV PRESET/PSET FLAG: 0=PRESET, 1=PSET 

*DV* *PV HORIZ COORD - ENDING POINT 

*DV* *PV VERT COORD - ENDING POINT 

*PV HORIZ COORD - DEFAULT COORD 

*PV VERT COORD - DEFAULT COORD 



EXTENDED BASIC SCRATCH PAD VARIABLES 



VCB 
VCD 
VCF 
VD1 
VD3 
VD4 
VD5 
VD6 
VD7 
VD8 
VD9 
VDA 

CHGFLG 

TMPSTK 

OCTAVE 

VOLHI 

VOLLOW 

NOTELN 

TEMPO 

PLYTMR 

DOTYAL 

DLBAUD 

TIMOUT 

ANGLE 

SCALE 



RMB 
RMB 
RMB 
RMB 
RMB 
RMB 
RMB 
RMB 
RMB 
RMB 
RMB 
RMB 

RMB 
RMB 
RMB 
RMB 
RMB 
RMB 
RMB 
RMB 
RMB 
RMB 
RMB 
RMB 
RMB 



* DSKCON VARIABLES 

DCOPC RMB 

DCDRV RMB 

DCTRK RMB 

DSEC RMB 

DCBPT RMB 2 

DCSTA RMB 1 



FCBTMP 



RMB 
RMB 



2 
13 



SW3VEC 


RMB 


3 


SW2VEC 


RMB 


3 


SWIVEC 


RMB 


3 


NMIVEC 


RMB 


3 


IRQVEC 


RMB 


3 


FRQVEC 


RMB 


3 


TIMVAL 






USRJMP 


RMB 


3 


* 


RMB 


2 


* 


RMB 


1 


RVSEED 


RMB 


1 



*TV FLAG TO INDICATE IF GRAPHIC DATA HAS BEEN CHANGED 

*TV STACK POINTER STORAGE DURING PAINT 

*PV OCTAVE VALUE (PLAY) 

*DV* *PV VOLUME HIGH VALUE (PLAY) 

*DV* *PV VOLUME LOW VALUE (PLAY) 

*PV NOTE LENGTH (PLAY) 

*PV TEMPO VALUE (PLAY) 

*TV TIMER FOR THE PLAY COMMAND 

*TV DOTTED NOTE TIMER SCALE FACTOR 

*DV* *PV DLOAD BAUD RATE CONSTANT $B0=300, $2C=1200 

*DV* *PV DLOAD TIMEOUT CONSTANT 

*DV* *PV ANGLE VALUE (DRAW) 

*DV* *PV SCALE VALUE (DRAW) 



*PV DSKCON OPERATION CODE 0-3 

*PV DSKCON DRIVE NUMBER 3 

*PV DSKCON TRACK NUMBER 34 

*PV DSKCON SECTOR NUMBER 1-18 

*PV DSKCON DATA POINTER 

*PV DSKCON STATUS BYTE 

TEMPORARY FCB POINTER 

SPARE: UNUSED VARIABLES 

BASIC EXBASIC DOSBASIC 



xxxx 


$XXXX 


$3B3B 


SWI3 VECTOR 


xxxx 


$XXXX 


$3B3B 


SWI2 VECTOR 


xxxx 


$xxxx 


$XXXX 


SWI VECTOR 


xxxx 


$xxxx 


$D7AE 


NMI VECTOR 


A9B3 


$894C 


$D7BC 


IRQ VECTOR 



$A0F6 $A0F6 $A0F6 FIRQ VECTOR 



JUMP ADDRESS FOR BASIC'S USR FUNCTION 

TIMER VALUE FOR EXBAS 

UNUSED BY EXBAS OR DISK BASIC 

* FLOATING POINT RANDOM NUMBER SEED EXPONENT 



COLOR BASIC UNRAVELLED II 



APPENDIX A 
MEMORY MAP 



ORIGIN:SPECTRAL ASSOC 
REVISED:12/13/1999 WALTER K ZYDHEK 



0262 


0116 


0263 


011A 


0264 


011B 


0265 


011D 


0266 




0267 




0268 




0269 




0270 




0271 




0272 




0273 




0274 




0275 




0276 




0277 




0278 




0279 




0280 




0281 




0282 




0283 




0284 




0285 




0286 




0287 




0288 




0289 




0290 




0291 




0292 




0293 


0120 


0294 


012A 


0295 


0134 


0296 




0297 




0298 


013E 


0299 


0140 


0300 


0142 


0301 


0144 


0302 


0146 


0303 


0148 


0304 


014A 


0305 


014C 


0306 


014E 


0307 


0150 


0308 




0309 




0310 




0311 




0312 




0313 




0314 




0315 




0316 




0317 




0318 




0319 




0320 




0321 




0322 




0323 




0324 




0325 




0326 




0327 




0328 




0329 




0330 




0331 




0332 




0333 




0334 




0335 




0336 




0337 




0338 




0339 




0340 




0341 


0152 


0342 


015A 


0343 


015B 


0344 


015C 


0345 


015D 


0346 




0347 




0348 







RMB 


4 


CASFLG 


RMB 


1 


DEBVAL 


RMB 


2 


EXPJMP 


RMB 


3 



* MANTISSA: INITIALLY SET TO $804FC75259 

UPPER CASE/LOWER CASE FLAG: $FF=UPPER, 0=LOWER 

KEYBOARD DEBOUNCE DELAY (SET TO $45E) 

JUMP ADDRESS FOR EXPONENTIATION 

INITIALLY SET TO ERROR FOR BASIC, $8489 FOR EX BASIC 



*** COMMAND INTERPRETATION VECTOR TABLE 
** FOUR SETS OF 10 BYTE TABLES: 



* THE LAST USED TABLE MUST BE FOLLOWED BY A ZERO BYTE 
THE JUMP TABLE VECTORS (3,4 AND 8,9) POINT TO THE JUMP TABLE FOR 
THE FIRST TABLE. FOR ALL OTHER TABLES, THESE VECTORS POINT TO A 
ROUTINE WHICH WILL VECTOR YOU TO THE CORRECT JUMP TABLE. 
SUPER ENHANCED BASIC HAS MODIFIED THIS SCHEME SO THAT THE USER 
TABLE MAY NOT BE ACCESSED. ANY ADDITIONAL TABLES WILL HAVE TO BE 
ACCESSED FROM A NEW COMMAND HANDLER. 



BYTE 



1,2 
3,4 



5 
6,7 



8,9 
10 



DESCRIPTION 

NUMBER OF RESERVED WORDS 

LOOKUP TABLE OF RESERVED WORDS 

JUMP TABLE FOR COMMANDS (FIRST TABLE) 

VECTOR TO EXPANSION COMMAND HANDLERS (ALL BUT FIRST TABLE) 

NUMBER OF SECONDARY FUNCTIONS 

LOOKUP TABLE OF SECONDARY FUNCTIONS (FIRST TABLE) 

VECTOR TO EXPANSION SECONDARY COMMAND HANDLERS (ALL BUT 

FIRST TABLE) 

JUMP TABLE FOR SECONDARY FUNCTIONS 

BYTE - END OF TABLE FLAG (LAST TABLE ONLY) 



RMB 10 

RMB 10 

RMB 10 



BASIC'S TABLE 

EX BASIC'S TABLE 

DISC BASIC'S TABLE (UNUSED BY EX BASIC) 



USR FUNCTION VECTOR ADDRESSES (EX BASIC ONLY) 



RMB 
RMB 
RMB 
RMB 
RMB 
RMB 
RMB 
RMB 
RMB 
RMB 



USR 


VECTOR 


USR 


1 


USR 


2 


USR 


3 


USR 


4 


USR 


5 


USR 


6 


USR 


7 


USR 


8 


USR 


9 



** THE ABOVE 20 BYTE USR ADDR VECTOR TABLE IS MOVED TO 
** $95F-$972 BY DISC BASIC. THE 20 BYTES FROM $13E-$151 
** ARE REDEFINED AS FOLLOWS: 



RMB 
FCB 
RMB 



USER (SPARE) COMMAND INTERPRETATION TABLE SPACE 
END OF COMM INTERP TABLE FLAG 
UNUSED BY DISK BASIC 



COMMAND INTERPRETATION TABLE VALUES 



* 




1,2 


* 




3,4 


* 




5 


* 




6,7 


* 




8,9 


* 







* 




1,2 


* 




3,4 


* 




5 


* 




6,7 


* 




8,9 


* 







* 




1,2 


* 




3,4 


* 




5 


* 




6,7 


* 




8,9 


KEYBUF 


RMB 


8 


POTVAL 


RMB 


1 




RMB 


1 




RMB 


1 




RMB 


1 



BASIC 


EX BASICDISK BASIC 


53 




BASIC TABLE 


$AA66 






$AB67 






20 






$AB1A 






$AA29 








25 


EX BASIC TABLE 




$8183 






$813C 


$CE2E ($CF0A 2.1) 




14 






$821E 






$8168 


$CE56 ($CF32 2.1) 




19 (20 


2.1) DISK BASIC TABLE 




$C17F 






$C2C0 






6 






$C201 






$C236 





KEYBOARD MEMORY BUFFER 
LEFT VERTICAL JOYSTICK DATA 
LEFT HORIZONTAL JOYSTICK DATA 
RIGHT VERTICAL JOYSTICK DATA 
RIGHT HORIZONTAL JOYSTICK DATA 



BASIC'S RAM VECTORS - INITIALIZED TO RTS BY COLOR BASIC 

25 SETS OF 3 BYTE INSTRUCTIONS WHICH ARE CALLED BY COLOR BASIC 



COLOR BASIC UNRAVELLED II 



APPENDIX A 
MEMORY MAP 



ORIGIN:SPECTRAL ASSOC 
REVISED:12/13/1999 WALTER K ZYDHEK 



0349 




0350 




0351 




0352 




0353 




0354 




0355 




0356 




0357 




0358 




0359 




0360 




0361 




0362 




0363 


015E 


0364 


0161 


0365 


0164 


0366 


0167 


0367 


016A 


0368 


016D 


0369 


0170 


0370 


0173 


0371 


0176 


0372 


0179 


0373 


017C 


0374 


017F 


0375 


0182 


0376 


0185 


0377 


0188 


0378 


018B 


0379 


018E 


0380 


0191 


0381 


0194 


0382 


0197 


0383 


019A 


0384 


019D 


0385 


01A0 


0386 




0387 




0388 




0389 


01A3 


0390 


01A6 


0391 




0392 


01A9 


0393 


01D1 


0394 


01DA 


0395 


02DA 


0396 


02DC 


0397 


03D7 


0398 




0399 


0400 


0400 




0401 




0402 


0600 


0403 


0700 


0404 


0800 


0405 


084A 


0406 


0894 


0407 


08DE 


0408 


0928 


0409 


0948 


0410 


094A 


0411 


094C 


0412 


0954 


0413 


0957 


0414 




0415 


0958 


0416 


0959 


0417 




0418 


095A 


0419 


095B 


0420 


095C 


0421 


095D 


0422 


095E 


0423 


095F 


0424 




0425 




0426 


0973 


0427 


0974 


0428 


0976 


0429 




0430 


0977 


0431 


0978 


0432 




0433 


097A 


0434 




0435 


097C 



EXTENDED AND DISK BASIC. THEIR PURPOSE IS TO ALLOW ENHANCEMENTS (SUCH 

AS EX BASIC AND DOS BASIC) AS MORE ROMS ARE ADDED TO THE 

SYSTEM BY EFFECTIVELY ALLOWING MORE CODE TO BE ADDED TO THE 

ROUTINES IN EARLIER ROMS. THIS NEW CODE IS LOCATED IN THE NEW ROMS 

AND THE ADDRESS TO GET TO THE NEW CODE IS IN BYTES 1 & 2 OF THE 

RAM VECTOR. BYTE WILL CONTAIN A $7E WHICH IS THE FIRST BYTE OF 

THE JMP INSTRUCTION. 

THE FIRST ADDRESS IN THIS TABLE IS THE ADDRESS IN BASIC WHICH 

CALLS THE RAM VECTOR, THE SECOND ADDRESS IS THE VALUE WHICH 

EX BASIC PUTS IN THE RAM VECTOR (IF ANY) AND THE THIRD ADDRESS 

IS THE VALUE WHICH DISK BASIC PUTS THERE (IF ANY) 



* 






2.0 


2.1 


1.0 


1.1 


RVEC0 


RMB 


3 


$A5F6 




$C426 


$C44B 


RVEC1 


RMB 


3 


$A5B9 




$C838 


$C888 


RVEC2 


RMB 


3 


$A35F 




$C843 


$C893 


RVEC3 


RMB 


3 


$A282 


$8273 


$CB4A 


$CC1C 


RVEC4 


RMB 


3 


$A176 


$8CF1 


$C58F 


$C5BC 


RVEC5 


RMB 


3 


$A3ED 




$C818 


$C848 


RVEC6 


RMB 


3 


$A406 




$C81B 


$C84B 


RVEC7 


RMB 


3 


$A426 




$CA3B 


$CAE9 


RVEC8 


RMB 


3 


$A42D 


$8286 


$CA4B 


$CAF9 


RVEC9 


RMB 


3 


$B918 


$8E90 


$8E90 


$8E90 


RVEC10 


RMB 


3 


$B061 




$CC5B 


$CD35 


RVEC11 


RMB 


3 


$A549 




$C859 


$C8A9 


RVEC12 


RMB 


3 


$A390 




$C6B7 


$C6E4 


RVEC13 


RMB 


3 


$A4BF 




$CA36 


$CAE4 


RVEC14 


RMB 


3 


$A5CE 




$CA60 


$C90C 


RVEC15 


RMB 


3 


$B223 


$8846 


$CDF6 


$CED2 


RVEC16 


RMB 


3 


$AC46 




$C6B7 


$C6E4 


RVEC17 


RMB 


3 


$AC49 


$88F0 


$C24D 


$C265 


RVEC18 


RMB 


3 


$AE75 


$829C 


$C990 


$CA3E 


RVEC19 


RMB 


3 


$BD22 


$87EF 






RVEC20 


RMB 


3 


$AD9E 


$82B9 




$C8B0 


RVEC21 


RMB 


3 


$A8C4 








RVEC22 


RMB 


3 


$A910 








* 






$8162 








* 






$8AFA 








* 






$975C 




$C29A 


$C2B2 


RVEC23 


RMB 


3 


$B821 


$8304 






RVEC24 


RMB 


3 


$B7C2 








STRSTK 


RMB 


8*5 


STRING 


DESCRIPTOR STACK 




CFNBUF 


RMB 


9 


CASSETTE FILE 


NAME BUFFER 


CASBUF 


RMB 


256 


CASSETTE FILE 


DATA BUFFER 


LINHDR 


RMB 


2 


LINE INPUT BUFFER HEADER 




LINBUF 


RMB 


LBUFMX+1 


BASIC 


LINE INPUT BUFFER 




STRBUF 


RMB 


41 


STRING 


BUFFER 







OPEN COMMAND 

DEVICE NUMBER VALIDITY CHECK 

SET PRINT PARAMETERS 

CONSOLE OUT 

CONSOLE IN 

INPUT DEVICE NUMBER CHECK 

PRINT DEVICE NUMBER CHECK 

CLOSE ALL FILES 

CLOSE ONE FILE 

PRINT 

INPUT 

BREAK CHECK 

INPUTTING A BASIC LINE 

TERMINATING BASIC LINE INPUT 

EOF COMMAND 

EVALUATE AN EXPRESSION 

RESERVED FOR ON ERROR GOTO COMMAND 

ERROR DRIVER 

RUN 

ASCII TO FLOATING POINT CONVERSION 

BASIC'S COMMAND INTERPRETATION LOOP 

RESET/SET/POINT COMMANDS 

CLS 

EXBAS' SECONDARY TOKEN HANDLER 

EXBAS' RENUM TOKEN CHECK 

EXBAS' GET/PUT 

CRUNCH BASIC LINE 

UNCRUNCH BASIC LINE 



*START OF ADDITIONAL RAM VA 



DBUF0 


RMB 


SECLEN 


DBUF1 


RMB 


SECLEN 


FATBL0 


RMB 


FATLEN 


FATBL1 


RMB 


FATLEN 


FATBL2 


RMB 


FATLEN 


FATBL3 


RMB 


FATLEN 


FCBV1 


RMB 


16*2 


RNBFAD 


RMB 


2 


FCBADR 


RMB 


2 


DNAMBF 


RMB 


8 


DEXTBF 


RMB 


3 


DFLTYP 


RMB 


1 


DASCFL 


RMB 


1 


DRUNFL 


RMB 


1 


DEFDRV 


RMB 


1 


FCBACT 


RMB 


1 


DRESFL 


RMB 


1 


DLOADFL 


RMB 


1 


DMRGFL 


RMB 


1 


DUSRVC 


RMB 


20 


*** DISK FILE WORK 


AREA FOR 


* EXISTING FILE 




V973 


RMB 


1 


V974 


RMB 


2 


V976 


RMB 


1 


* UNUSED FILE 




V977 


RMB 


1 


V978 


RMB 


2 



VIDEO DISPLAY AREA 

RIABLE STORAGE (DISK BASIC ONLY) 
I/O BUFFER #0 
I/O BUFFER #1 

FILE ALLOCATION TABLE - DRIVE 
FILE ALLOCATION TABLE - DRIVE 1 
FILE ALLOCATION TABLE - DRIVE 2 
FILE ALLOCATION TABLE - DRIVE 3 
FILE BUFFER VECTORS (15 USER, 1 SYSTEM) 
START OF FREE RANDOM FILE BUFFER AREA 
START OF FILE CONTROL BLOCKS 
DISK FILE NAME BUFFER 
DISK FILE EXTENSION NAME BUFFER 
*DV* DISK FILE TYPE: 0=BASIC, 1=DATA, 2=MACHINE 

LANGUAGE, 3=TEXT EDITOR SOURCE FILE 
*DV* ASCII FLAG: 0=CRUNCHED OR BINARY, $FF=ASCII 
RUN FLAG: (IF BIT 1=1 THEN RUN, IF BIT 0=1, THEN CLOSE 
ALL FILES BEFORE RUNNING) 
DEFAULT DRIVE NUMBER 
NUMBER OF FCBS ACTIVE 
RESET FLAG: <>0 WILL CAUSE A 'NEW' 
LOAD FLAG: CAUSE A 'NEW FOLLOWING 
MERGE FLAG: 0=N0 MERGE, $FF=MERGE 
DISK BASIC USR COMMAND VECTORS 
DIRECTORY SEARCH 

SECTOR NUMBER 

RAM DIRECTORY IMAGE ADDRESS 

FIRST GRANULE NUMBER 

SECTOR NUMBER 

RAM DIRECTORY IMAGE ADDRESS 

WRITE FAT VALUE: NUMBER OF FREE GRANULES WHICH MUST BE TAKEN 
FROM THE FAT TO TRIGGER A WRITE FAT TO DISK SEQUENCE 
DIRECT ACCESS FILE RECORD LENGTH 



SHUT DOWN ALL FCBS 
LOAD ERROR 



COLOR BASIC UNRAVELLED II 



APPENDIX A 
MEMORY MAP 



ORIGIN:SPECTRAL ASSOC 
REVISED:12/13/1999 WALTER K ZYDHEK 



0436 097E 

0437 0982 

0438 0983 
0439 

0440 0985 

0441 0986 

0442 0987 

0443 0988 
0444 

0445 

0446 

0447 0989 

0448 

0449 

0450 

0451 

0452 

0453 

0454 

0455 

0456 

0457 

0458 

0459 

0460 

0461 

0462 

0463 

0464 

0465 

0466 

0467 

0468 

0469 

0470 

0471 

0472 

0473 8000 

0474 

0475 8000 

0476 A000 

0477 C000 

0478 C000 

0479 E000 



RMB 


4 


RMB 


1 


RMB 


2 


RMB 


1 


RMB 


1 


RMB 


1 


RMB 


1 



DR0TRK 
NMIFLG 
DNMIVC 

RDYTMR 
DRGRAM 
DVERFL 
ATTCTR 



DFLBUF RMB SECLEN 
*RANDOM FILE RESERVED AREA 
*FILE CONTROL BLOCKS AND BUFFERS 
♦GRAPHIC PAGE RESERVED AREA 
*BASIC PROGRAM 
♦VARIABLE STORAGE AREA 
*ARRAY STORAGE AREA 

* FREE MEMORY 

*STACK 

♦STRING SPACE 

*USER PROGRAM RESERVED AREA 

*END OF RAM 

ORG $8000 

RMB $2000 

RMB $2000 

ROMPAK EQU * 

DOSBAS RMB $2000 

RMB $1F00 



CURRENT TRACK NUMBER, DRIVES 0,1,2,3 

NMI FLAG: 0=DON'T VECTOR <>0=YECTOR OUT 

NMI VECTOR: WHERE TO JUMP FOLLOWING AN NMI 

INTERRUPT IF THE NMI FLAG IS SET 

MOTOR TURN OFF TIMER 

RAM IMAGE OF DSKREG ($FF40) 

VERIFY FLAG: 0=OFF, $FF=ON 

READ/WRITE ATTEMPT COUNTER: NUMBER OF TIMES THE 

DISK WILL ATTEMPT TO RETRIEVE OR WRITE DATA 

BEFORE IT GIVES UP AND ISSUES AN ERROR. 

INITIALIZED TO SECLEN BY DISKBAS 



EXTENDED BASIC ROM 
COLOR BASIC ROM 



DISK BASIC ROM/ENHANCED BASIC INIT CODE 
ENHANCED BASIC 



0481 

0482 

0483 

0484 FF00 

0485 

0486 FF00 

0487 

0488 

0489 

0490 

0491 

0492 

0493 

0494 

0495 FF01 

0496 

0497 

0498 

0499 

0500 

0501 

0502 

0503 

0504 

0505 

0506 FF02 

0507 

0508 

0509 

0510 

0511 

0512 

0513 

0514 

0515 FF03 

0516 

0517 

0518 

0519 

0520 

0521 

0522 



BIT0 
BIT1 
BIT2 
BIT3 
BIT4 
BIT5 
BIT6 
BIT7 



BIT2 

BIT3 
BIT4 

BIT5 
BIT6 
BIT7 

BIT0 
BIT1 
BIT2 
BIT3 
BIT4 
BIT5 
BIT6 
BIT7 



BIT2 
BIT3 
BIT4 

BIT5 



EQU * 

KEYBOARD ROW 

KEYBOARD ROW 

KEYBOARD ROW 

KEYBOARD ROW 

KEYBOARD ROW 

KEYBOARD ROW 



PERIPHERAL INTERFACE ADAPTER ONE 



AND RIGHT JOYSTICK SWITCH 1 
AND LEFT JOYSTICK SWITCH 1 
AND RIGHT JOYSTICK SWITCH 2 
AND LEFT JOYSTICK SWITCH 2 



KEYBOARD ROW 7 

JOTSTICK COMPARISON IINPUT 



CONTROL OF HSYNC (63.5ps) 


INTERRUPT 




CONTROL OF INTERRUPT 


POLARITY 




NORMALLY 1 




SEL 1 




ALWAYS 1 




ALWAYS 1 




NOT USED 




HORIZONTAL SYNC 


INTERRUPT FLAG 


KEYBOARD COLUMN 


1 


KEYBOARD COLUMN 


2 


KEYBOARD COLUMN 


3 


KEYBOARD COLUMN 


4 


KEYBOARD COLUMN 


5 


KEYBOARD COLUMN 


6 



= IRQ* TO CPU DISABLED 

1 = IRQ* TO CPU ENABLED 

= FLAG SET ON FALLING EDGE OF HS 

1 = FLAG SET ON RISING EDGE OF HS 
= CHANGES FF00 TO DATA DIRECTION 
LSB OF TWO ANALOG MUX SELECT LINES 



KEYBOARD COLUMN 7 
KEYBOARD COLUMN 8 



/ RAM SIZE OUTPUT 



CONTROL OF VSYNC (16.667ms) 

INTERRUPT 

CONTROL OF INTERRUPT 

POLARITY 

NORMALLY 1 

SEL 2 

ALWAYS 1 

ALWAYS 1 



= IRQ* TO CPU DISABLED 

1 = IRQ* TO CPU ENABLED 

= FLAG SET ON FALLING EDGE OF FS 

1 = FLAG SET ON RISING EDGE OF FS 
= CHANGES FF02 TO DATA DIRECTION 
MSB OF TWO ANALOG MUX SELECT LINES 
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0523 
0524 
0525 

0526 FF04 

0527 FF20 

0528 FF20 
0529 

0530 FF20 

0531 

0532 

0533 

0534 

0535 

0536 

0537 

0538 

0539 FF21 

0540 

0541 

0542 

0543 

0544 

0545 

0546 

0547 

0548 

0549 

0550 FF22 

0551 

0552 

0553 

0554 

0555 

0556 

0557 

0558 

0559 FF23 

0560 

0561 

0562 

0563 

0564 

0565 

0566 

0567 

0568 

0569 

0570 FF24 

0571 FF40 

0572 FF40 
0573 

0574 FF40 

0575 

0576 

0577 

0578 

0579 

0580 

0581 

0582 

0583 FF41 

0584 

0585 

0586 FF48 

0587 

0588 

0589 

0590 

0591 

0592 

0593 

0594 

0595 

0596 

0597 

0598 

0599 

0600 

0601 

0602 

0603 

0604 

0605 

0606 

0607 

0608 

0609 



BIT6 
BIT7 



DA 

PIA1 

BIT0 
BIT1 
BIT2 
BIT3 
BIT4 
BIT5 
BIT6 
BIT7 



BIT2 
BIT3 
BIT4 
BIT5 

BIT6 
BIT7 

BIT0 
BIT1 
BIT2 

BIT3 
BIT4 

BIT5 
BIT6 
BIT7 



BIT2 
BIT3 
BIT4 
BIT5 
BIT6 
BIT7 



PIA2 
DSKREG 

BIT0 
BIT1 
BIT2 
BIT3 
BIT4 
BIT5 
BIT6 
BIT7 



NOT USED 

FIELD SYNC INTERRUPT FLAG 



EQU * 

CASSETTE DATA INPUT 
RS-232C DATA OUTPUT 
6 BIT D/A LSB 



PIA0 IMAGES 



PERIPHERAL INTERFACE ADAPTER TWO 



BIT D/A 

BIT D/A 
BIT D/A 
BIT D/A 
BIT D/A MSB 



CONTROL OF CD 

(RS-232C STATUS) 

CONTROL OF INTERRUPT 

POLARITY 

NORMALLY 1 

CASSETTE MOTOR CONTROL 

ALWAYS 1 

ALWAYS 1 

NOT USED 

CD INTERRUPT FLAG 

RS-232C DATA INPUT 

SINGLE BIT SOUND OUTPUT 

RAM SIZE INPUT 

RGB MONITOR SENSING INPUT 

VDG CONTROL OUTPUT 

VDG CONTROL OUTPUT 

VDG CONTROL OUTPUT 

VDG CONTROL OUTPUT 

CONTROL OF CARTRIDGE 

INTERRUPT 

CONTROL OF INTERRUPT 

POLARITY 

NORMALLY 1 

SOUND ENABLE 

ALWAYS 1 

ALWAYS 1 

NOT USED 

CARTRIDGE INTERRUPT FLAG 



FIRQ* TO CPU DISABLED 

FIRQ* TO CPU ENABLED 

FLAG SET ON FALLING EDGE OF CD 

FLAG SET ON RISING EDGE OF CD 

CHANGES FF20 TO DATA DIRECTION 

OFF 1 = ON 



CSS 

GM0 & UPPER/LOWER CASE* 

GM1 & INVERT 

GM2 

A*/G 

= FIRQ* TO CPU DISABLED 

1 = FIRQ* TO CPU ENABLED 

= FLAG SET ON FALLING EDGE OF CART* 

1 = FLAG SET ON RISING EDGE OF CART* 
= CHANGES FF22 TO DATA DIRECTION 



DRIVE SELECT 
DRIVE SELECT 1 
DRIVE SELECT 2 
DRIVE MOTOR ENABLE 
WRITE PRECOMPENSATION 
DENSITY FLAG 
DRIVE SELECT 3 
HALT FLAG 



PIA1 IMAGES 

DISK CONTROL REGISTER 



MOTORS OFF 
NO PRECOMP 
SINGLE 



= DISABLED 



1 = MOTORS ON 

1 = PRECOMP 

1 = DOUBLE 

1 = ENABLED 



RMB 



7 



DSKREG IMAGES 



* FLOPPY DISK CONTROLLER INTERNAL REGISTERS 

FDCREG RMB 1 STATUS/COMMAND REGISTER 



COMMANDS 


TYPE 

I 

I 

I 
I 

I 


COMMAND 
RESTORE 
SEEK 
STEP 
STEP IN 
STEP OUT 




CODE 

103 

$17 

123 

$43 

$53 






II 


READ SECTOR 




$80 






II 


WRITE SECTOR 




IA0 






III 


READ ADDRESS 




$C0 






III 


READ TRACK 




$E4 






III 


WRITE TRACK 




$F4 






IV 


FORCE INTERRUPT 




ID0 




STATUS 


BIT 


TYPE I 


READ 


ADDRESS/SECTOR/TRACK 


WRITE SECTOR/TRACK 




S0 


BUSY 


BUSY 




BUSY 




SI 


INDEX 


DRQ 




DRQ 




S2 


TRACK 


LOST 


DATA 


LOST DATA 




S3 


CRC ERROR 


CRC 


ERROR (EXCEPT TRACK) 


CRC ERROR (EXCEPT TRACK) 




S4 


SEEK ERROR 


RNF 


(EXCEPT TRACK) 


RNF (EXCEPT TRACK) 




S5 


HEAD LOADED 


RECORD TYPE (SECTOR ONLY) 


WRITE FAULT 




S6 


WRITE PROTECT 






WRITE PROTECT 




S7 


NOT READY 


NOT 


READY 


NOT READY 
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0610 




0611 


FF49 


0612 


FF4A 


0613 


FF4B 


0614 


FF4C 


0615 




0616 


FF50 


0617 


FF60 


0618 


FF61 


0619 


FF62 


0620 


FF63 


0621 




0622 


FF68 


0623 


FF69 


0624 


FF6A 


0625 


FF6B 


0626 


FF6C 


0627 


FF70 


0628 


FF7D 


0629 


FF7E 


0630 


FF7F 


0631 




0632 


FF80 


0633 




0634 




0635 


FFC0 


0636 




0637 


FFC0 


0638 


FFC1 


0639 


FFC2 


0640 


FFC3 


0641 


FFC4 


0642 


FFC5 


0643 


FFC6 


0644 


FFC7 


0645 


FFC8 


0646 


FFC9 


0647 


FFCA 


0648 


FFCB 


0649 


FFCC 


0650 


FFCD 


0651 


FFCE 


0652 


FFCF 


0653 


FFD0 


0654 


FFD1 


0655 


FFD2 


0656 


FFD3 


0657 


FFD4 


0658 


FFD8 


0659 


FFD9 


0660 


FFDA 


0661 


FFDE 


0662 


FFDF 


0663 




0664 


FFE0 


0665 




0666 


FFF2 


0667 


FFF4 


0668 


FFF6 


0669 


FFF8 


0670 


FFFA 


0671 


FFFC 


0672 


FFFE 



RMB 


1 


RMB 


1 


RMB 


1 


RMB 


4 


RMB 


16 


RMB 


1 


RMB 


1 


RMB 


1 


RMB 


5 


a RAM 


PAK 


RMB 


1 


RMB 


1 


RMB 


1 


RMB 


1 


RMB 


4 


RMB 


13 


RMB 


1 


RMB 


1 


RMB 


1 



V0CLR 


RMB 1 


V0SET 


RMB 1 


V1CLR 


RMB 1 


V1SET 


RMB 1 


V2CLR 


RMB 1 


V2SET 


RMB 1 


F0CLR 


RMB 1 


F0SET 


RMB 1 


F1CLR 


RMB 1 


F1SET 


RMB 1 


F2CLR 


RMB 1 


F2SET 


RMB 1 


F3CLR 


RMB 1 


F3SET 


RMB 1 


F4CLR 


RMB 1 


F4SET 


RMB 1 


F5CLR 


RMB 1 


F5SET 


RMB 1 


F6CLR 


RMB 1 


F6SET 


RMB 1 




RMB 4 


R1CLR 


RMB 1 


R1SET 


RMB 1 




RMB 4 


ROMCLR 


RMB 1 


ROMSET 


RMB 1 




RMB 18 


* 


INTERRUPT VECTORS 


SWI3 


RMB 2 


SWI2 


RMB 2 


FIRQ 


RMB 2 


IRQ 


RMB 2 


SMI 


RMB 2 


NMI 


RMB 2 


RESETV 


RMB 2 



TRACK REGISTER 
SECTOR REGISTER 
DATA REGISTER 
FDCREG IMAGES 

UNUSED SPACE 

X COORDINATE FOR X-PAD 

Y COORDINATE FOR X-PAD 

STATUS REGISTER FOR X-PAD 

UNUSED 

READ/WRITE DATA REGISTER 
STATUS REGISTER 
COMMAND REGISTER 
CONTROL REGISTER 



SOUND/SPEECH CARTRIDGE RESET 
SOUND/SPEECH CARTRIDGE READ/WRITE 
MULTI-PAK PROGRAMMING REGISTER 

RESERVED FOR FUTURE EXPANSION 



SAM CONTROL REGISTERS 



CLEAR COCO GRAPHI 
SET COCO GRAPHICS 
CLEAR COCO GRAPHI 
SET COCO GRAPHICS 
CLEAR COCO GRAPHI 
SET COCO GRAPHICS 
CLEAR COCO GRAPHI 
SET COCO GRAPHICS 
CLEAR COCO GRAPHI 
SET COCO GRAPHICS 
CLEAR COCO GRAPHI 
SET COCO GRAPHICS 
CLEAR COCO GRAPHI 
SET COCO GRAPHICS 
CLEAR COCO GRAPHI 
SET COCO GRAPHICS 
CLEAR COCO GRAPHI 
SET COCO GRAPHICS 
CLEAR COCO GRAPHI 
SET COCO GRAPHICS 
RESERVED 

CLEAR CPU RATE, ( 
SET CPU RATE, (1 
RESERVED 
ROM DISABLED 
ROM ENABLED 



RESERVED FOR FUTURE MPU ENHANCEMENTS 



CS MODE V0 

MODE V0 
CS MODE VI 

MODE VI 
CS MODE V2 

MODE V2 
CS OFFSET F0 

OFFSET F0 
CS OFFSET Fl 

OFFSET Fl 
CS OFFSET F2 

OFFSET F2 
CS OFFSET F3 

OFFSET F3 
CS OFFSET F4 

OFFSET F4 
CS OFFSET F5 

OFFSET F5 
CS OFFSET F6 

OFFSET F6 

0.89 MHz) 
78 MHz) 
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1001 


4000 










ORG 


$A000 


[002 


A000 


Al 


CB 




POLCAT 


FDB 


KEYIN 


!003 


A002 


A2 


82 




CHROUT 


FDB 


PUTCHR 


[004 


A004 


A7 


7C 




CSRDON 


FDB 


CASON 


[005 


A006 


A7 


3 




BLKIN 


FDB 


GETBLK 


[006 


A008 


A7 


F4 




BLKOUT 


FDB 


SNDBLK 


i007 


A00A 


A9 


DE 




JOYIN 


FDB 


GETJOY 


[008 


A00C 


A7 


D8 




URTLDR 


FDB 


HRLDR 


[009 










* 






[010 


A00E 


10 


CE 


03 D7 


LA00E 


LDS 


#LINBUF+LBUFMX- 


[011 


A012 


86 


37 






LDA 


#$37 


[012 


A014 


B7 


FF 


23 




STA 


PIA1+3 


[013 


A017 


96 


71 






LDA 


RSTFLG 


[014 


A019 


81 


55 






CHPA 


#$55 


[015 


A01B 


26 


57 






BNE 


BACDST 


[016 


A01D 


9E 


72 






LDX 


RSTVEC 


[017 


A01F 


A6 


84 






LDA 


,x 


[018 


A021 


81 


12 






CHPA 


#$12 


[019 


A023 


26 


41 






BNE 


BACDST 


[020 


A025 


6E 


84 






JHP 


,x 


[021 
















[022 


A027 


31 


8C 


E4 


RESVEC 


LEAY 


LA00E.PC 


[023 


A02A 


8E 


FF 


20 


LA02A 


LDX 


#PIA1 


[024 


A02D 


6F 


ID 






CLR 


-3,X 


[025 


A02F 


6F 


IF 






CLR 


-1,X 


[026 


A031 


6F 


1C 






CLR 


-4,X 


[027 


A033 


cc 


FF 


34 




LDD 


#$FF34 


[028 


A036 


A7 


IE 






STA 


-2,X 


[029 


A038 


E7 


ID 






STB 


-3,X 


[030 


A03A 


E7 


IF 






STB 


-1,X 


[031 


A03C 


6F 


01 






CLR 


1,X 


[032 


A03E 


6F 


03 






CLR 


3,X 


[033 


A040 


4A 








DECA 




[034 


A041 


A7 


84 






STA 


,x 


[035 


A043 


86 


F8 






LDA 


#$F8 


[036 


A045 


A7 


02 






STA 


2,X 


[037 


A047 


E7 


01 






STB 


1,X 


[038 


A049 


E7 


03 






STB 


3,X 


[039 


A04B 


6F 


02 






CLR 


2,X 


[040 


A04D 


C6 


02 






LDB 


#$02 


[041 


A04F 


E7 


84 






STB 


,x 


[042 


A051 


CE 


FF 


C0 




LDU 


#SAMREG 


[043 


A054 


C6 


10 






LDB 


#16 


[044 


A056 


A7 


CI 




LA056 


STA 


,U++ 


[045 


A058 


5A 








DECB 




[046 


A059 


26 


FB 






BNE 


LA056 


[047 


A05B 


B7 


FF 


C9 




STA 


SAMREG+9 


!048 


A05E 


IF 


9B 






TFR 


B,DP 


[049 


A060 


C6 


04 






LDB 


#$04 


[050 


A062 


A7 


IE 






STA 


-2,X 


[051 


A064 


E5 


02 






BITB 


2,X 


[052 


A066 


27 


0A 






BEQ 


LA072 


[053 


A068 


6F 


IE 






CLR 


-2,X 


[054 


A06A 


E5 


02 






BITB 


2,X 


[055 


A06C 


27 


02 






BEQ 


LA070 


[056 


A06E 


33 


5E 






LEAU 


-2,U 


[057 


A070 


A7 


5D 




LA070 


STA 


-3,U 


[058 


A072 


6E 


A4 




LA072 


JMP 


,Y 


[059 










* COLD 


START ENTRY 


[060 


A074 


8E 


04 


01 


BACDST 


LDX 


#VIDRAM+1 


[061 


A077 


6F 


83 




LA077 


CLR 


,--x 


[062 


A079 


30 


01 






LEAX 


1,X 


[063 


A07B 


26 


FA 






BNE 


LA077 


[064 


A07D 


BD 


A9 


28 




JSR 


LA928 


[065 


A080 


6F 


80 






CLR 


,x+ 


[066 


A082 


9F 


19 






STX 


TXTTAB 


[067 


A084 


A6 


02 




LA084 


LDA 


2,X 


[068 


A086 


43 








COMA 




[069 


A087 


A7 


02 






STA 


2,X 


[070 


A089 


Al 


02 






CHPA 


2,X 


[071 


A08B 


26 


06 






BNE 


LA093 


[072 


A08D 


30 


01 






LEAX 


1,X 


[073 


A08F 


63 


01 






COM 


1,X 


[074 


A091 


20 


Fl 






BRA 


LA084 


[075 


A093 


9F 


74 




LA093 


STX 


TO PRAM 


[076 


A095 


9F 


27 






STX 


MEMSIZ 


[077 


A097 


9F 


23 






STX 


STRTAB 


[078 


A099 


30 


89 


FF 38 




LEAX 


-200.X 


[079 


A09D 


9F 


21 






STX 


FRETOP 


[080 


A09F 


IF 


14 






TFR 


X,S 


[081 


A0A1 


8E 


Al 


0D 




LDX 


#LA10D 


[082 


A0A4 


CE 


00 


8F 




LDU 


#CMPMID 


[083 


A0A7 


C6 


1C 






LDB 


#28 


[084 


A0A9 


BD 


A5 


9A 




JSR 


LA59A 


[085 


A0AC 


CE 


01 


0C 




LDU 


#IRQVEC 


[086 


A0AF 


C6 


IE 






LDB 


#30 


[087 


A0B1 


BD 


A5 


9A 




JSR 


LA59A 


[088 


A0B4 


AE 


14 






LDX 


-12, X 


[089 


A0B6 


AF 


43 




LA0B6 


STX 


3,U 



GET A KEYSTROKE 

OUTPUT A CHARACTER 

TURN ON CASSETTE MOTOR, START READING 

READ A BLOCK FROM CASSETTE 

HRITE A BLOCK TO CASSETTE 

READ JOYSTICKS 

TURN ON MOTOR AND HRITE $55 S TO CASSETTE 

SET STACK TO TOP OF LINE INPUT BUFFER 

* ENABLE 63.5 MICROSECOND INTERRUPT 
GET HARM START FLAG 

IS IT A HARM START? 

NO - D0 A COLD START 

HARM START VECTOR 

GET FIRST BYTE OF HARM START ADDR 

15 IT NOP? 

NO - DO A COLD START 
YES, G0 THERE 

POINT Y TO HARM START CHECK CODE 
POINT X TO PIA1 
CLEAR PIA0 CONTROL REGISTER A 
CLEAR PIA0 CONTROL REGISTER B 
SET PIA0 SIDE A TO INPUT 

* SET PIA0 SIDE B TO OUTPUT 

* ENABLE PIA0 PERIPHERAL REGISTERS, DISABLE PIA0 

* MPU INTERRUPTS, SET CA2, CA1 TO OUTPUTS 
CLEAR CONTROL REGISTER A ON PIA1 

CLEAR CONTROL REGISTER B ON PIA1 

A REG NOH HAS $FE 

BITS 1-7 ARE OUTPUTS, BIT IS INPUT ON PIA1 SIDE A 

= BITS 0-2 ARE INPUTS, BITS 3-7 ARE OUTPUTS ON B SIDE 

* ENABLE PERIPHERAL REGISTERS, DISABLE PIA1 MPU 

* INTERRUPTS AND SET CA2, CB2 AS OUTPUTS 
SET 6847 MODE TO ALPHA-NUMERIC 

* MAKE RS232 OUTPUT MARKING 
SAM CONTROL REGISTER ADDR 

16 SAM CONTROL REGISTER BITS 
ZERO OUT SAM CONTROL REGISTER BIT 

* DECREMENT COUNTER AND 

* BRANCH IF NOT DONE 
SET DISPLAY PAGE AT $400 
SET DIRECT PAGE TO ZERO 

USE AS A MASK TO CHECK RAMSZ INPUT 

SET RAMSZ STROBE HIGH 

CHECK RAMSZ INPUT 

BRANCH IF JUMPER SET FOR 4K RAMS 

SET RAMSZ STROBE LOH 

CHECK RAMSZ INPUT 

BRANCH IF JUMPER SET FOR 64K RAMS 

ADJUST POINTER TO SET SAM FOR 16K RAMS 

PROGRAM SAM FOR 16K OR 64K RAMS 

GO DO A HARM OR COLD START 

POINT X TO CLEAR 1ST IK OF RAM 

MOVE POINTER DOHN THO-CLEAR BYTE 

ADVANCE POINTER ONE 

KEEP GOING IF NOT AT BOTTOM OF PAGE 

CLEAR SCREEN 

CLEAR 1ST BYTE OF BASIC PROGRAM 

BEGINNING OF BASIC PROGRAM 

LOOK FOR END OF MEMORY 

* COMPLEMENT IT AND PUT IT BACK 

* INTO SYSTEM MEMORY 
IS IT RAM? 

BRANCH IF NOT (ROM, BAD RAM OR NO RAM) 

MOVE POINTER UP ONE 

RE-COMPLEMENT TO RESTORE BYTE 

KEEP LOOKING FOR END OF RAM 

SAVE ABSOLUTE TOP OF RAM 

SAVE TOP OF STRING SPACE 

SAVE START OF STRING VARIABLES 

CLEAR 200 - DEFAULT STRING SPACE TO 200 BYTES 

SAVE START OF STRING SPACE 

PUT STACK THERE 

POINT X TO ROM SOURCE DATA 

POINT U TO RAM DESTINATION 

MOVE 28 BYTES 

MOVE 28 BYTES FROM ROM TO RAM 

POINT U TO NEXT RAM DESTINATION 

MOVE 30 MORE BYTES 

MOVE 30 BYTES FROM ROM TO RAM 

POINT X TO SYNTAX ERROR ADDRESS 

* SET EXBAS COMMAND INTERPRETATION 
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0091 

0092 
0093 
0094 
0095 
0096 
009" 



0100 

0101 

0102 
0103 
0104 
0105 
0106 
0107 
0108 
0109 
0110 
0111 
0112 
0113 
0114 
0115 
0116 
0117 
0118 
0119 
0120 
0121 
0122 
0123 
0124 
0125 
0126 
0127 
0128 
0129 
0130 
0131 
0132 
0133 
0134 
0135 
0136 
0137 
0138 
0139 
0140 
0141 
0142 
0143 
0144 
0145 
0146 
0147 
0148 
0149 
0150 
0151 
0152 
0153 
0154 
0155 
0156 
0157 
0158 
0159 
0160 
0161 
0162 
0163 
0164 
0165 
0166 
0167 
0168 
0169 
0170 
0171 
0172 
0173 
0174 
0175 
0176 
0177 
0178 



A0BA 
A0BD 
A0C0 
A0C2 
A0C3 
A0C5 
A0C8 
A0CB 
A0CE 
A0D1 
A0D5 
A0D7 
A0DA 
A0DD 
A0E0 
A0E2 
A0E4 
A0E6 
A0E8 



A0F6 

A0F9 
A0FB 

A0FC 
A0FF 

A102 
A105 
A108 
A10A 



A147 
A14D 
A153 
A156 
A157 
A15D 
A163 
A165 
A166 
A16C 
A16F 

A171 

A173 



AF 48 

8E 01 5E 

CC 39 4B 

A7 80 

5A 

26 FB 

B7 02 D9 

BD AD 19 

8E 45 58 

BC 80 00 

10 27 DF 2D 

1C AF 



9F 72 

86 55 

97 71 

20 0B 
12 

0F 6F 

BD AD 33 

1C AF 

BD A9 28 

7E AC 73 



BD A7 Dl 

BD A7 Dl 

31 8C 03 

7E A0 2A 

0F 71 



A10D 12 

A10E 18 

A10F 0A 

A110 00 80 

A112 0B 

A113 00 58 

A115 00 01 

A117 10 

A118 70 

A119 84 

AHA 00 

A11B B4 4A 

A11D 0C A7 

A11F 26 02 

A121 0C A6 

A123 B6 00 00 

A126 7E AA 1A 



A129 
A12C 
A12F 

A132 
A133 
A135 
A137 

A138 
A13A 



4F C7 
52 59 



A13D 35 

A13E AA 66 

A140 AB 67 

A142 14 

A143 AB 1A 

A145 AA 29 



43 4F 4C 4F 52 20 
42 41 53 49 43 20 
31 2E 32 

0D 

28 43 29 20 31 39 

38 32 20 54 41 4E 

44 59 
00 

4D 49 43 52 4F 53 

4F 46 54 





STX 


8,U 




LDX 


#RVEC0 




LDD 


#$394B 


LA0C0 


STA 

DECB 


,x+ 




BNE 


LA0C0 




STA 


LINHDR-1 




JSR 


LAD 19 




LDX 


#$4558 




CHPX 


EXBAS 




LBEQ 


EXBAS+2 




ANDCC 


#$AF 




LDX 


#LA147-1 




JSR 


LB99C 




LDX 


#BAHHST 




STX 


RSTVEC 




LDA 


#$55 




STA 


RSTFLG 




BRA 


LA0F3 


BAHMST 


NOP 






CLR 


DEVNUM 




JSR 


LAD33 




ANDCC 


#$AF 




JSR 


LA928 


LA0F3 


JHP 


LAC73 



FIRQ SERVICE ROUTINE 



RTI 






JSR 


LA7D1 




JSR 


LA7D1 




LEAV 


<LA108, 


PC 


JHP 


LA02A 




CLR 


RSTFLG 




JHP 


ROHPAK 





* HANDLERS TO SYNTAX ERROR 
POINT X TO START OF RAH VECTORS 
SET UP TO SAVE 75 RTS 

FILL THE RAH VECTORS WITH RTS 

* DECREHENT COUNTER AND 

* BRANCH IF NOT DONE 
PUT RTS IN LINHDR-1 
G0 DO A NEW 

ASCII EX (FIRST TWO LETTERS OF EXTENDED ) 

SEE IF EXTENDED ROM IS THERE 

IF IT IS, BRANCH TO IT 

ENABLE IRQ, FIRQ 

POINT X TO COLOR BASIC COPYRIGHT MESSAGE 

PRINT COLOR BASIC 

HARM START ADDRESS 

SAVE IT 

HARM START FLAG 

SAVE IT 

GO TO BASIC S MAIN LOOP 

NOP REQ D FOR HARM START 

SET DEVICE NUMBER TO SCREEN 

DO PART OF A NEH 

ENABLE IRQ, FIRQ 

CLEAR SCREEN 

GO TO MAIN LOOP OF BASIC 



CARTRIDGE INTERRUPT? 
YES 

DELAY FOR A HHILE 

KEEP DELAYING 

Y = ROM-PAK START UP VECTOR 

GO DO INITIALIZATION 

CLEAR HARM START FLAG 

JUMP TO EXTERNAL ROM PACK 



THESE BYTES ARE MOVED TO ADDRESSES $8F - $AA THE DIRECT PAGE 





FDB 


128 




FCB 


11 




FDB 


88 




FDB 


1 




FCB 


16 




FCB 


112 




FCB 


132 




FCB 







FDB 


LB44A 


* LINE 


INPUT ROUTINE 




INC 


CHARAD+1 




BNE 


LA123 




INC 


CHARAD 


LA123 


LDA 


>0000 




JHP 


BROMHK 


* THESE 


BYTES ARE MOVED T 




JMP 


BIRQSV 




JHP 


BFRQSV 




JMP 


LB44A 




FCB 


$80 




FDB 


$4FC7 




FCB 


$5259 




FCB 


$FF 




FDB 


DEBDEL 




JMP 


LB277 


* BASIC 


COMMAND 


INTERPRET 


LA13D 


FCB 


53 


LA13E 


FDB 


LAA66 


LA140 


FDB 


LAB67 


LA142 


FCB 


20 


LA143 


FDB 


LABIA 


LA145 


FDB 


LAA29 



MID BAND PARTITION OF 1200/2400 HERTZ PERIOD 

UPPER LIMIT OF 1200 HERTZ PERIOD 

UPPER LIMIT OF 2400 HERTZ PERIOD 

NUMBER OF 55 S TO CASSETTE LEADER 

CURSOR BLINK DELAY 

CONSTANT FOR 600 BAUD VER 1.2 & UP 

PRINTER CARRIAGE RETURN DELAY 

TAB FIELD HIDTH 

LAST TAB ZONE 

PRINTER HIDTH 

LINE PRINTER POSITION 

ARGUMENT OF EXEC COMMAND - SET TO FC ERROR 



IRQ SERVICE 
FIRQ SERVICE 

HSR ADDRESS FOR 8K BASIC (INITIALIZED TO FC ERROR) 
♦RANDOM SEED 

*RANDON SEED OF MANTISSA 
*. 811635157 

UPPER CASE/LOUER CASE FLAG (STARTS SET TO UPPER) 
KEYBOARD DEBOLINCE DELAY 

DISPATCH FOR EXPONENTIATION (INITIALIZED TO SYNTAX ERROR) 
MAGE 
53 BASIC COMMANDS 
POINTS TO RESERVED HORDS 
POINTS TO JUMP TABLE FOR COMHANDS 
20 BASIC SECONDARY COMMANDS 

POINTS TO SECONDARY FUNCTION RESERVED HORDS 
POINTS TO SECONDARY FUNCTION JUMP TABLE 



* COPYRIGHT MESSAGES 

LA147 FCC 'COLOR BASIC 1. 



LA156 
LA157 



LA165 
LA166 



'(C) 1982 TANDY' 



FCC 


'MICROS 


OFT 


FCB 


CR,$00 




BSR 


LA176 




ANDA 


#$7F 





GET A CHARACTER FROM CONSOLE IN 
MASK OFF BIT 7 



COLOR BASIC UNRAVELLED II 



ORIGIN:SPECTRAL ASSOC 
REVISED:12/13/1999 WALTER K ZYDHEK 



0179 


A175 


39 




0180 








0181 








0182 


A176 


BD 


01 6A 


0183 


A179 


0F 


70 


0184 


A17B 


0D 


6F 


0185 


A17D 


27 


32 


0186 


A17F 


0D 


79 


0187 


A181 


26 


03 


0188 


A183 


03 


70 


0189 


A185 


39 




0190 








0191 


A186 


34 


74 


0192 


A188 


9E 


7A 


0193 


A18A 


A6 


80 


0194 


A18C 


34 


02 


0195 


A18E 


9F 


7A 


0196 


A190 


0A 


79 


0197 


A192 


26 


03 


0198 


A194 


BD 


A6 35 


0199 


A197 


35 


F6 


0200 








0201 


A199 


0A 


94 


0202 


A19B 


26 


0E 


0203 


A19D 


C6 


0B 


0204 


A19F 


D7 


94 


0205 


A1A1 


9E 


88 


0206 


A1A3 


A6 


84 


0207 


A1A5 


8B 


10 


0208 


A1A7 


8A 


8r 


0209 


A1A9 


A7 


84 


0210 


A1AB 


8E 


04 5E 


0211 


A1AE 


7E 


A7 D3 


0212 








0213 








0214 


A1B1 


34 


14 


0215 


A1B3 


8D 


E4 


0216 


A1B5 


8D 


14 


0217 


A1B7 


27 


FA 


0218 


A1B9 


C6 


60 


0219 


A1BB 


E7 


9F 00 


0220 


A1BF 


35 


94 


0221 








0222 








0223 








0224 








0225 


A1C1 


7F 


FF 02 


0226 


A1C4 


B6 


FF 00 


0227 


A1C7 


43 




0228 


A1C8 


48 




0229 


A1C9 


27 


79 


0230 


A1CB 


34 


54 


0231 


A1CD 


CE 


FF 00 


0232 


A1D0 


8E 


01 52 


0233 


A1D3 


4F 




0234 


A1D4 


4A 




0235 


A105 


34 


12 


0236 


A1D7 


A7 


42 


0237 


A1D9 


69 


42 


0238 


A1DB 


24 


43 


0239 


A1DD 


6C 


60 


0240 


A1DF 


8D 


59 


0241 


A1E1 


A7 


61 


0242 


A1E3 


A8 


84 


0243 


A1E5 


A4 


84 


0244 


A1E7 


E6 


61 


0245 


A1E9 


E7 


80 


0246 


A1EB 


4D 




0247 


A1EC 


27 


EB 


0248 


A1EE 


E6 


42 


0249 


A1F0 


E7 


62 


0250 








0251 








0252 


A1F2 


C6 


F8 


0253 


A1F4 


CB 


08 


0254 


A1F6 


44 




0255 


A1F7 


24 


FB 


0256 


A1F9 


EB 


60 


0257 








0258 


A1FB 


27 


48 


0259 


A1FD 


CI 


1A 


0260 


A1FF 


22 


46 


0261 


A201 


CA 


40 


0262 


A203 


8D 


29 


0263 


A205 


BA 


01 1A 


0264 


A208 


26 


02 


0265 


A20A 


CA 


20 


0266 


A20C 


E7 


60 


0267 


A20E 


BE 


01 IB 



* CONSO 


LE IN 




LA176 


JSR 


RVEC4 




CLR 


CINBFL 


LA17B 


TST 


DEVNUM 




BEQ 


LA1B1 




TST 


CINCTR 




BNE 


LA186 




COM 


CINBFL 


LA185 


RTS 




LA186 


PSHS 


U,V,X,B 




LDX 


CINPTR 




LDA 


,x+ 




PSHS 


A 




STX 


CINPTR 


LA190 


DEC 


CINCTR 




BNE 


LA197 




JSR 


LA635 


LA197 


PULS 


A,B,X,V 


LA199 


DEC 


BLKCNT 




BNE 


LA1AB 




LDB 


#11 




STB 


BLKCNT 




LDX 


CURPOS 




LDA 


,x 




AODA 


#$10 




ORA 


#$8r 




STA 


,x 


LA1AB 


LDX 


#DEBDEL 


LA1AE 


JHP 


LA7D3 


* BLINK 


CURSOR 


WHILE WAI 


LA1B1 


PSHS 


X,B 


LA1B3 


BSR 


LA199 



BSR 


LA199 


BSR 


KEYIN 


BEO 


LA1B3 


LDB 


#$60 


STB 


[CURPOS] 


PULS 


B,X,PC 



HOOK INTO RAM 

RESET CONSOLE IN BUFFER FLAG = FULL 

CHECK DEVICE NUMBER 

G0 DO CURSOR AND GET A KEY IF SCREEN MODE 

TEST CHARACTER COUNTER 

NOT EMPTY - READ IN SOME CASSETTE DATA 

SET TO $FF: CONSOLE IN BUFFER EMPTY 



SAVE REGISTERS 

PICK UP BUFFER POINTER 

GET NEXT CHAR 

SAVE CHAR ON STACK 

SAVE NEW BUFFER POINTER 

DECR CHAR COUNT 

RETURN IF BUFFER NOT EMPTY 

GO READ TAPE 

RESTORE REGISTERS 

CURSOR BLINK DELAY 
NOT TIME FOR NEW COLOR 

*RESET DELAY COUNTER 

GET CURSOR POSITION 

GET CURRENT CURSOR CHAR 

BUMP TO NEXT COLOR 

MAKE SURE IT S A SOLID GRAPHICS B 

STORE TO SCREEN 

CURSOR BLINK DELAY 

DELAY WHILE X DECREMENTS TO ZERO 



SAVE REGISTERS 

GO DO CURSOR 

GO CHECK KEYBOARD 

LOOP IF NO KEY DOWN 

BLANK 

BLANK CURRENT CURSOR CHAR ON SCREEN 



THIS ROUTINE GETS A KEYSTROKE FROM THE KEYBOARD IF A KEY 
IS DOWN. IT RETURNS ZERO TRUE IF THERE HAS NO KEY DOWN. 



CLR 

LDA 

COMA 

AS LA 

BEO 

PSHS 

LDU 

LDX 

CLRA 

DECA 

PSHS 

STA 

ROL 

BCC 

INC 

BSR 

STA 

EORA 

ANDA 

LDB 

STB 

TSTA 

BEO 

LDB 

STB 



#PIA0 
#KEYBUF 



2,1) 
LA220 



LA23A 
1,S 



2,S 



THIS ROUTINE CONVERTS 
FROM 0-50 IN ACCB CORI 
LDB #$F8 
A1F4 ADDB 
LSRA 



#$0 



BCC 



LA1F4 

,s 



ADD! 

NOW CONVERT THE VALUE 
BEQ LA245 
CMPB 
BHI 
ORB 
BSR 
ORA 
BNE 
ORB 
A20C STB 
LDX 



CLEAR COLUMN STROBE 

READ KEY ROUS 

COMPLEMENT ROW DATA 

SHIFT OFF JOYSTICK DATA 

RETURN IF NO KEYS OR FIRE BUTTONS DOWN 

SAVE REGISTERS 

POINT U TO PIA0 

POINT X TO KEYBOARD MEMORY BUFFER 

* CLEAR CARRY FLAG, SET COLUMN COUNTER (ACCA) 

* TO $FF 

SAVE COLUMN CTR & 2 BLANK (X REG) ON STACK 
INITIALIZE COLUMN STROBE TO $FF 

* ROTATE COLUMN STROBE DATA LEFT 1 BIT, CARRY 

* INTO BIT - BRANCH IF 8 SHIFTS DONE 
INCREMENT COLUMN COUNTER 

READ KEYBOARD ROM DATA 

TEMP STORE KEY DATA 

SET ANY BIT WHERE A KEY HAS MOVED 

ACCA=0 IF NO NEW KEY DOMN, <70 IF KEY WAS RELEASED 

GET NEW KEY DATA 

STORE IT IN KEY MEMORY 

HAS A NEW KEY DOHN? 

NO-CHECK ANOTHER COLUMN 

* GET COLUMN STROBE DATA AND 

* TEMP STORE IT ON THE STACK 
THE KEY DEPRESSION INTO A NUMBER 

ESPONDING TO THE KEY THAT HAS DOWN 

TO MAKE SURE ACCB=0 AFTER FIRST ADDB #8 

ADD 8 FOR EACH ROW OF KEYBOARD 

ACCA HAS THE ROW NUMBER OF THIS KEY - ADD 8 FOR EACH ROW 

GO ON UNTIL A ZERO APPEARS IN THE CARRY FLAG 

ADD IN THE COLUMN NUMBER 



IN ACCB INTO ASCII 



#26 

LA247 

#$40 

LA22E 

CASFLG 

LA20C 

#$20 

,s 

DEBVAL 



THE AT SIGN KEY WAS DOWN 

WAS IT A LETTER? 

NO 

YES, CONVERT TO UPPER CASE ASCII 

CHECK FOR THE SHIFT KEY 

* OR IN THE CASE FLAG & BRANCH IF IN UPPER 

* CASE MODE OR SHIFT KEY DOWN 
CONVERT TO LOWER CASE 

TEMP STORE ASCII VALUE 
GET KEYBOARD DEBOUNCE 



COLOR BASIC UNRAVELLED II 
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0268 


A211 


8D 


9 3 




BSR 


LA1AE 


0269 


A213 


C6 


FF 




LDB 


#$FF 


0270 


A215 


8D 


21 




BSR 


LA238 


0271 


A217 


4C 






INCA 




0272 


A218 


26 


06 




BNE 


LA220 


0273 


A21A 


E6 


62 


LA21A 


LDB 


2,S 


0274 


A21C 


8D 


1A 




BSR 


LA238 


0275 


A21E 


Al 


61 




CHPA 


1,S 


0276 


A220 


35 


12 


LA220 


PULS 


A,X 


0277 








* 






0278 


A222 


26 


07 




BNE 


LA22B 


0279 


A224 


81 


12 




CHPA 


#$12 


0280 


A226 


26 


04 




BNE 


LA22C 


0281 


A228 


73 


01 1A 




COM 


CASFLG 


0282 


A22B 


4F 




LA22B 


CLRA 




0283 


A22C 


35 


D4 


LA22C 


PULS 


B,X,U,PC 


0284 














0285 








* TEST 


FOR THE 


SHIFT KEY 


0286 


A22E 


86 


7F 


LA22E 


LDA 


#$7F 


0287 


A230 


A7 


42 




STA 


2,U 


0288 


A232 


A6 


C4 




LDA 


,U 


0289 


A234 


43 






COMA 




0290 


A235 


84 


40 




ANDA 


#$40 


0291 


A237 


39 






RTS 




0292 














0293 








* READ 


THE KEYBOARD 


0294 


A238 


E7 


42 


LA238 


STB 


2,U 


0295 


A23A 


A6 


C4 


LA23A 


LDA 


,u 


0296 








* 






0297 


A23C 


8A 


80 




ORA 


#$80 


0298 


A23E 


60 


42 




TST 


$02, U 


0299 


A240 


2B 


02 




BMI 


LA244 


0300 


A242 


8A 


C0 




ORA 


#$C0 


0301 








* 






0302 


A244 


39 




LA244 


RTS 




0303 














0304 


A245 


C6 


33 


LA245 


LDB 


#51 


0305 


A247 


8E 


A2 38 


LA247 


LDX 


#C0NTAB-$36 


0306 


A24A 


CI 


21 




CMPB 


#33 


0307 


A24C 


25 


16 




BLO 


LA264 


0308 


A24E 


8E 


A2 1A 




LDX 


#C0NTAB-$54 


0309 


A251 


CI 


30 




CMPB 


#48 


0310 


A253 


24 


0F 




BHS 


LA264 


0311 


A255 


8D 


D7 




BSR 


LA22E 


0312 


A257 


CI 


2B 




CMPB 


#43 


0313 


A259 


23 


02 




BLS 


LA25D 


0314 


A25B 


88 


40 




EORA 


#$40 


0315 








* 






0316 


A25D 


4D 




LA25D 


TSTA 




0317 


A25E 


26 


AC 




BNE 


LA20C 


0318 


A260 


CB 


10 




ADDB 


#$10 


0319 


A262 


20 


A8 




BRA 


LA20C 


0320 


A264 


58 




LA264 


ASLB 




0321 








* 






0322 


A265 


8D 


C7 




BSR 


LA22E 


0323 


A267 


27 


01 




BEQ 


LA26A 


0324 


A269 


5C 






INCB 




0325 


A26A 


E6 


85 


LA26A 


LDB 


B,X 


0326 


A26C 


20 


9E 




BRA 


LA20C 


0327 








* 






0328 








* 






0329 








* CONTROL TABLE 


UNSHIFTED, 


0330 


A26E 


5E 


5F 


CONTAB 


FCB 


$5E,$5F 


0331 


A270 


0A 


5B 




FCB 


$0A 


$5B 


0332 


A272 


08 


15 




FCB 


$08 


$15 


0333 


A274 


09 


5D 




FCB 


$09 


$5D 


0334 


A276 


20 


20 




FCB 


$20 


$20 


0335 


A278 


30 


12 




FCB 


$30 


$12 


0336 


A27A 


0D 


0D 




FCB 


$0D 


$0D 


0337 


A27C 


0C 


5C 




FCB 


$0C 


$5C 


0338 


A27E 


03 


03 




FCB 


$03 


$03 


0339 


A280 


40 


13 




FCB 


$40 


$13 


0340 














0341 








* CONSOLE OOT 




0342 


A282 


BD 


01 67 


POTCHR 


JSR 


RVEC3 


0343 


A285 


34 


04 




PSHS 


B 


0344 


A287 


D6 


6F 




LDB 


DEVNUM 


0345 


A289 


5C 






INCB 




0346 


A28A 


35 


04 




PULS 


3 


0347 


A28C 


2B 


31 




BMI 


LA2BF 


0348 


A28E 


26 


7A 




BNE 


LA30A 


0349 








* SEND 


TO CASSETTE 


0350 


A290 


34 


16 




PSHS 


X,B,A 


0351 


A292 


D6 


78 




LDB 


FILSTA 


0352 


A294 


5A 






DECB 




0353 


A295 


27 


0F 




BEQ 


LA2A6 


0354 


A297 


D6 


79 




LDB 


CINCTR 


0355 


A299 


5C 






INCB 




0356 


A29A 


26 


02 




BNE 


LA2 


E 



SET COLUMN STROBE TO ALL ONES (NO 

STROBE) AND READ KEYBOARD 

= INCR ROW DATA, ACCA NOW IF NO JOYSTICK 

= BUTTON DOWN. BRANCH IF JOYSTICK BUTTON DOWN 

GET COLUMN STROBE DATA 

READ A KEY 

IS IT THE SAME KEY AS BEFORE DEBOUNCE? 

REMOVE TEMP SLOTS FROM THE STACK AND RECOVER 

THE ASCII VALUE OF THE KEY 

NOT THE SAME KEY OR JOYSTICK BUTTON 

IS SHIFT ZERO DOWN? 

NO 

YES, TOGGLE UPPER CASE/LOWER CASE FLAG 

SET ZERO FLAG TO INDICATE NO NEW KEY DOWN 

RESTORE REGISTERS 



COLUMN STROBE 
STORE TO P1A 
READ KEY DATA 

* SET BIT 6 IF SHIFT KEY DOWN 
RETURN 



SAVE NEW COLUMN STROBE VALUE 

READ PIA0, PORT A TO SEE IF KEY IS DOWN 

A BIT WILL BE ZERO IF ONE IS 

MASK OFF THE JOYSTICK COMPARATOR INPUT 

ARE WE STROBING COLUMN 7? 

NO 

YES, FORCE ROW 6 TO BE HIGH - THIS WILL CAUSE 

THE SHIFT KEY TO BE IGNORED 

RETURN 

CODE FOR AT SIGN 

POINT X TO CONTROL CODE TABLE 

KEY NUMBER <33? 

YES (ARROW KEYS, SPACE BAR, ZERO) 

POINT X TO MIDDLE OF CONTROL TABLE 

KEY NUMBER >48? 

YES (ENTER, CLEAR, BREAK, AT SIGN) 

CHECK SHIFT KEY (ACCA WILL CONTAIN STATUS) 

IS KEY A NUMBER, COLON OR SEMICOLON? 

YES 

TOGGLE BIT 6 OF ACCA WHICH CONTAINS THE SHIFT DATA 

ONLY FOR SLASH, HYPHEN, PERIOD, COMMA 

SHIFT KEY DOWN? 

YES 

NO, ADD IN ASCII OFFSET CORRECTION 

GO CHECK FOR DEBOUNCE 

MULT ACCB BY 2 - THERE ARE 2 ENTRIES IN CONTROL 

TABLE FOR EACH KEY - ONE SHIFTED, ONE NOT 

CHECK SHIFT KEY 

NOT DOWN 

ADD ONE TO GET THE SHIFTED VALUE 

GET ASCII CODE FROM CONTROL TABLE 

GO CHECK DEBOUNCE 



SHIFTED VALUES 



UP ARROW 
DOWN ARROW 
RIGHT ARROW 
LEFT ARROW 
SPACE BAR 
ZERO 
ENTER 
CLEAR 
BREAK 
AT SIGN 



HOOK INTO RAM 

SAVE ACCB 

GET DEVICE NUMBER 

SET FLAGS 

RESTORE ACCB 

SEND TO LINE PRINTER 

SEND TO SCREEN 

RESTORE REGISTERS 

GET FILE STATUS 

INPUT FILE? 

YES 

TEMP CHAR CTR 

IS THE BUFFER FULL 

NO 
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0357 


A29C 


8D 


0A 


0358 


A29E 


9E 


7A 


0359 


A2A0 


A7 


80 


0360 


A2A2 


9F 


7A 


0361 


A2A4 


0C 


79 


0362 


A2A6 


35 


96 


0363 








0364 








0365 


A2A8 


C6 


01 


0366 


A2AA 


D7 


7C 


0367 


A2AC 


8E 


01 DA 


0368 


A2AF 


9F 


7E 


0369 


A2B1 


D6 


79 


0370 


A2B3 


D7 


7D 


0371 


A2B5 


34 


62 


0372 


A2B7 


BD 


A7 E5 


0373 


A2BA 


35 


62 


0374 


A2BC 


7E 


A6 50 


0375 








0376 








0377 


A2BF 


34 


17 


0378 


A2C1 


1A 


50 


0379 


A2C3 


F6 


FF 22 


0380 


A2C6 


54 




0381 


A2C7 


25 


FA 


0382 


A2C9 


8D 


30 


0383 


A2CB 


5F 




0384 


A2CC 


8D 


2F 


0385 


A2CE 


C6 


08 


0386 


A2D0 


34 


04 


0387 


A2D2 


5F 




0388 


A2D3 


44 




0389 


A2D4 


59 




0390 


A2D5 


58 




0391 


A2D6 


8D 


25 


0392 


A2D8 


35 


04 


0393 


A2DA 


5A 




0394 


A2DB 


26 


F3 


0395 


A2DD 


8D 


1C 


0396 


A2DF 


35 


03 


0397 


A2E1 


81 


0D 


0398 


A2E3 


27 


08 


0399 


A2E5 


0C 


9C 


0400 


A2E7 


D6 


9C 


0401 


A2E9 


Dl 


9E 


0402 


A2EB 


25 


06 


0403 


A2ED 


0F 


9C 


0404 


A2EF 


8D 


14 


0405 


A2F1 


8D 


12 


0406 


A2F3 


F6 


FF 22 


0407 


A2F6 


54 




0408 


A2F7 


25 


FA 


0409 


A2F9 


35 


94 


0410 


A2FB 


C6 


02 


0411 


A2FD 


F7 


FF 20 


0412 


A300 


8D 


00 


0413 


A302 


9E 


95 


0414 


A304 


8C 


9E 97 


0415 


A305 


9E 


97 


0416 


A307 


7E 


A7 D3 


0417 








0418 








0419 


A30A 


34 


16 


0420 


A30C 


9E 


88 


0421 


A30E 


81 


08 


0422 


A310 


26 


0B 


0423 


A312 


8C 


04 00 


0424 


A315 


27 


46 


0425 


A317 


86 


60 


0426 


A319 


A7 


82 


0427 


A31B 


20 


27 


0428 


A310 


81 


0D 


0429 


A31F 


26 


0E 


0430 


A321 


9E 


88 


0431 


A323 


86 


60 


0432 


A325 


A7 


80 


0433 


A327 


IF 


10 


0434 


A329 


C5 


IF 


0435 


A32B 


26 


F6 


0436 


A32D 


20 


15 


0437 


A32F 


81 


20 


0438 


A331 


25 


2A 


0439 


A333 


4D 




0440 


A334 


2B 


0C 


0441 


A336 


81 


40 


0442 


A338 


25 


06 


0443 


A33A 


81 


60 


0444 


A33C 


25 


04 


0445 


A33E 


84 


OF 





BSR 


LA2A8 


LA29E 


LDX 


CINPTR 




STA 


,x+ 




STX 


CINPTR 




INC 


CINCTR 


LA2A6 


PUTS 


A,B,X,PC 


* WRITE 


A BLOCK 


OF DATA TO TAPE 


LA2A8 


LDB 


#1 


LA2AA 


STB 


BLKTYP 




LDX 


#CASBUF 




STX 


CBUFAD 




LDB 


CINCTR 




STB 


BLKLEN 




PSHS 


U,Y,A 




JSR 


LA7E5 




PULS 


A,Y,U 




JHP 


LA650 


* SOFTWARE UART 


TO LINE PRINTER 


LA2BF 


PSHS 


X,B,A,CC 




ORCC 


#$50 


LA2C3 


LDB 
LSRB 


PIA1+2 




BCS 


LA2C3 




BSR 


LA2FB 




CLRB 






BSR 


LA2FD 




LDB 


#8 


LA2D0 


PSHS 
CLRB 
LSRA 
ROLB 
ASLB 


B 




BSR 


LA2FD 




PULS 


B 




DECB 






BNE 


LA2D0 




BSR 


LA2FB 




PULS 


CC,A 




CHPA 


#CR 




BEQ 


LA2ED 




INC 


LPTPOS 




LDB 


LPTPOS 




CHPB 


LPTWID 




BLO 


LA2F3 


LA2ED 


CLR 


LPTPOS 




BSR 


LA305 




BSR 


LA305 


LA2F3 


LDB 


PIA1+2 



LA2FB 
LA2FD 



BSR 


LA302 


LDX 


LPTBTD 


FCB 


SKP2 


LDX 


LPTLND 


JHP 


LA7D3 


ARACTER ON THE 


PSHS 


X,B,A 


LDX 


CURPOS 


CHPA 


#BS 


BNE 


LA31D 


CHPX 


#VIDRAM 


BEQ 


LA35D 


LDA 


#»60 


STA 


,-x 


BRA 


LA344 


CHPA 


#CR 


BNE 


LA32F 


LDX 


CURPOS 


LDA 


#$60 


STA 


,x+ 


TFR 


X,D 


BITB 


#$1F 


BNE 


LA323 


BRA 


LA344 


CHPA 


#SPACE 


BCS 


LA35D 


TSTA 




BMI 


LA342 


CHPA 


#$40 


BCS 


LA340 


CHPA 


#$60 


BCS 


LA342 


ANDA 


#$DF 



YES, WRITE DATA BLOCK TO TAPE 
GET BUFFER POINTER 
PUT CHAR IN CASSETTE BUFFER 
STORE NEW BUFFER POINTER 
INCR BYTE COUNT 



DATA BLOCK TYPE - NOT A HEADER BLOCK 

BLOCK NUHBER 

CASSETTE BUFFER 

STARTING ADDRESS 

GET NUMBER OF BYTES 

BYTE COUNT 

SAVE REGISTERS 

WRITE A BLOCK ON TAPE 

RESTORE REGISTERS 

RESET BUFFER POINTERS 



SAVE REGISTERS AND INTERRUPT STATUS 

DISABLE IRQ.FIRQ 

GET RS 232 STATUS 

SHIFT RS 232 STATUS BIT INTO CARRY 

LOOP UNTIL READY 

SET OUTPUT TO MARKING 

* TRANSMIT ONE START BIT 
SEND 8 BITS 

SAVE BIT COUNTER 

CLEAR DA IMAGE I ZEROES TO DA WHEN SENDING RS 232 DATA 

ROTATE NEXT BIT OF OUTPUT CHARACTER TO CARRY FLAG 

* ROTATE CARRY FLAG INTO BIT ONE 

* AND ALL OTHER BITS SET TO ZERO 
TRANSMIT DATA BYTE 

GET BIT COUNTER 

SENT ALL 8 BITS? 

NO 

SEND STOP BIT <ACCB:0) 

RESTORE OUTPUT CHARACTER & INTERRUPT STATUS 

IS IT CARRIAGE RETURN? 

YES 

INCREMENT CHARACTER COUNTER 

CHECK FOR END OF LINE PRINTER LINE 

AT END OF LINE PRINTER LINE? 

NO 

RESET CHARACTER COUNTER 

* DELAY FOR CARRIAGE RETURN 
WAIT FOR HANDSHAKE 

CHECK FOR R5232 STATUS? 

NOT YET READY 

RESTORE REGISTERS 

SET RS232 OUTPUT HIGH (MARKING) 

STORE TO THE D/A CONVERTER REGISTER 

GO WAIT A WHILE 

GET BAUD RATE 

SKIP NEXT TWO BYTES 

PRINTER CARRIAGE RETURN DELAY 

DELAY ON DECREMENTING X 



SAVE REGISTERS 

POINT X TO CURRENT CHARACTER POSITION 

IS IT BACKSPACE? 

NO 

AT TOP OF SCREEN? 

YES - DO NOT ALLOW BACKSPACE 

BLANK 

PUT IN PREVIOUS POSITION 

SAVE NEW CURPOS 

ENTER KEY? 

BRANCH IF NOT 

GET CURRENT CHAR POSITION 

BLANK 

PUT IT ON SCREEN 

* TEST FOR BEGINNING OF NEW LINE 
PUT OUT BLANKS TILL NEW LINE 
CHECK FOR SCROLLING 

* BRANCH IF CONTROL CHARACTER 
SET FLAGS 

IT IS GRAPHIC CHARACTER 

* BRANCH IF NUMBER OR SPECIAL CHARACTER 
UPPER/LOWER CASE? 

BRANCH IF UPPER CASE ALPHA 

CLEAR BIT 5, FORCE ASCII LOWER CASE TO BE UPPER CASE 



COLOR BASIC UNRAVELLED II 
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0446 


A340 


88 


40 




0447 


A342 


A7 


80 




0448 


A344 


9F 


88 




0449 


A346 


ec 


05 


FF 


0450 


A349 


23 


12 




0451 


A34B 


8E 


04 


00 


0452 










0453 










0454 


A34E 


EC 


88 


20 


0455 


A351 


ED 


81 




0456 


A353 


8C 


05 


E0 


0457 


A356 


25 


F6 




0458 


A358 


C6 


60 




0459 


A35A 


BD 


A9 


2D 


0460 


A35D 


35 


96 




0461 










0462 










0463 










0464 


A35F 


BD 


01 


64 


0465 


A362 


34 


16 




0466 


A364 


0F 


6E 




0467 


A366 


96 


61 




0468 


A368 


27 


09 




0469 


A36A 


4C 






0470 


A36B 


27 


17 




0471 










0472 


A36D 


9E 


99 




0473 


A36F 


DC 


9B 




0474 


A371 


20 


09 




0475 










0476 


A373 


D6 


89 




0477 


A376 


C4 


IF 




0478 


A377 


8E 


10 


10 


0479 


A37A 


86 


20 




0480 


A37C 


9F 


6A 




0481 


A37E 


D7 


6C 




0482 


A380 


97 


6D 




0483 


A382 


35 


96 




0484 


A384 


03 


6E 




0485 


A386 


8E 


01 


00 


0486 


A389 


4F 






0487 


A38A 


5F 






0488 


A38B 


20 


EF 




0489 










0490 










0491 










0492 










0493 


A38D 


BD 


A9 


28 


0494 


A390 


BD 


01 


82 


0495 


A393 


0F 


87 




0496 


A395 


8E 


02 


DD 


0497 


A398 


C6 


01 




0498 










0499 


A39A 


BD 


Al 


71 


0500 


A39D 


0D 


70 




0501 


A39F 


26 


2B 




0502 


A3A1 


0D 


6F 




0503 


A3A3 


26 


23 




0504 


A3A5 


81 


0C 




0505 


A3A7 


27 


E4 




0506 


A3A9 


81 


08 




0507 


A3AB 


26 


07 




0508 


A3AD 


5A 






0509 


A3AE 


27 


E0 




0510 


A3B0 


30 


IF 




0511 


A3B2 


20 


34 




0512 


A3B4 


81 


15 




0513 


A3B6 


26 


0A 




0514 










0515 


A3B8 


5A 






0516 


A3B9 


27 


D5 




0517 


A3BB 


86 


08 




0518 


A3BD 


BD 


A2 


82 


0519 


A3C0 


20 


F6 




0520 


A3C2 


81 


03 




0521 


A3C4 


1A 


01 




0522 


A3C6 


27 


05 




0523 


A3C8 


81 


0D 




0524 


A3CA 


26 


0D 




0525 


A3CC 


4F 






0526 


A3CD 


34 


01 




0527 


A3CF 


BD 


B9 


58 


0528 


A302 


6F 


84 




0529 


A3D4 


8E 


02 


DC 


0530 


A3D7 


35 


81 




0531 










0532 










0533 


A3D9 


81 


20 




0534 


A3DB 


25 


BD 





LA340 




EORA 


#$40 


LA342 




STA 


,x+ 


LA344 




STX 


CURPOS 






CHPX 


#VIDRAM+511 






BLS 


LA35D 






LDX 


#VIDRAM 


* SCROLL 


THE SCREEN 


LA34E 




LDD 


32, X 






STD 


,X++ 






CHPX 


#VIDRAM+$1E0 






BCS 


LA34E 






LDB 


#$60 






JSR 


LA92D 


LA35D 




PULS 


A,B,X,PC 


* SET 


UP 


TAB FIELD WIDTH, TAB 


* AND 


LINE HIDTH 


ACCORDING TO 


LA35F 




JSR 


RVEC2 






PSFIS 


X,B,A 






CLR 


PRTDEV 






LDA 


DEVNUM 






BEQ 


LA373 






INCA 








BEO 


LA384 


* END 


UP 


HERE IF 


PRINTER 






LDX 


LPTCFH 






LDD 


LPTHID 






BRA 


LA37C 


* SCREEN 


DISPLAY 


VALUES 


LA373 




LDB 


CURPOS+1 






ANDB 


#$1F 






LDX 


#$1010 






LDA 


#32 


LA37C 




STX 


DEVCFH 






STB 


DEVPOS 






STA 


DEVHID 






PULS 


A,B,X,PC 


LA384 




COM 


PRTDEV 






LDX 


#$0100 






CLRA 








CLRB 








BRA 


LA37C 


* THIS 


IS THE ROUTINE THAT GE" 


* EXIT 


WITH BREAK KEY: CARRY • 


* EXIT 


HITH ENTER KEY: CARRY : 


LA38D 




JSR 


LA928 


LA390 




JSR 


RVEC12 



INVERT BIT 6, CHANGE UPPER CASE TO LOWER & VICE VERSA 

STORE CHARACTER TO SCREEN 

SAVE CURRENT CHAR POSITION 

END OF SCREEN BUFFER? 

RETURN IF NO NEED TO SCROLL 

TOP OF SCREEN 



GET THO BYTES 

MOVE THEM UP ONE ROM 

AT THE LAST LINE? 



CLR IKEYIM 

LDX #LINBUF+ 



* YES, 
LA3B8 



LA3CC 
LA3CD 



JSR 
TST 

BNE 
TST 
BNE 
CMPA 
BEQ 
CMPA 
BNE 
DECB 
BEQ 
LEAX 
BRA 
CMPA 
BNE 
RESET BUF 
DECB 
BEQ 
LDA 
JSR 
BRA 
CMPA 
ORCC 
BEQ 
CMPA 
BNE 
CLRA 
PSFIS 
JSR 
CLR 
LDX 
PULS 



LA171 

CINBFL 

LA3CC 

DEVNUM 

LA3C8 

#FORMF 

LA38D 

#BS 

LA3B4 

LA390 
-1,X 
LA3E8 
#$15 
LA3C2 
FER TO B 

LA390 
#BS 
PUTCHR 
LA3B8 



LA3CD 

#CR 

LA3D9 



#LINBUF 
CC.PC 



NO 

BLANK 

BLANK LAST LINE 

RESTORE REGISTERS 

ZONE, CURRENT POSITION 
THE DEVICE SELECTED 

HOOK INTO RAM 

SAVE REGISTERS 

RESET PRINT DEVICE NUMBER 

GET DEVICE NUMBER 

BRANCH IF SCREEN 

CHECK FOR CASSETTE 

BRANCH IF CASSETTE 

TAB FIELD HIDTH AND TAB ZONE 
PRINTER HIDTH AND POSITION 
SET PRINT PARAMETERS 

GET CURSOR LOC LS BYTE 

KEEP ONLY COLUMN POSITION 

TAB FIELD HIDTH AND LAST TAB ZONE 

DISPLAY SCREEN LINE HIDTH 

SAVE TAB FIELD HIDTH AND ZONE 

SAVE PRINT POSITION 

SAVE PRINT HIDTH 

RESTORE REGISTERS 

SET TO $FF FOR CASSETTE 

* TAB FIELD HIDTH = 1; ALL OTHER 

* PARAMETERS = 

SET PRINT PARAMETERS 
GETS AN INPUT LINE FOR BASIC 



CLEAR SCREEN 

HOOK INTO RAM 

RESET BREAK CHECK KEY TEMP KEY STORAGE 
1 INPUT LINE BUFFER 

ACCB CHAR COUNTER: SET TO 1 TO ALLOH A 

BACKSPACE AS FIRST CHARACTER 

GO GET A CHARACTER FROM CONSOLE IN 

GET CONSOLE IN BUFFER FLAG 

BRANCH IF NO MORE CHARACTERS IN INPUT FILE 

CHECK DEVICE NUMBER 

BRANCH IF NOT SCREEN 

FORM FEED 

YES - CLEAR SCREEN 

BACKSPACE 

NO 

YES - DECREMENT CHAR COUNTER 

BRANCH IF BACK AT START OF LINE AGAIN 

DECREMENT BUFFER POINTER 

ECHO CHAR TO SCREEN 

SHIFT RIGHT ARROH? 

NO 
GINNING AND ERASE CURRENT LINE 

DEC CHAR CTR 

GO BACK TO START IF CHAR CTR = 

BACKSPACE? 

SEND TO CONSOLE OUT (SCREEN) 

KEEP GOING 

BREAK KEY? 

SET CARRY FLAG 

BRANCH IF BREAK KEY DOHN 

ENTER KEY? 



NO 

CLEAR CARRY FLAG IF ENTER KEY 

SAVE CARRY FLAG 

SEND CR TO SCREEN 

MAKE LAST BYTE IN INPUT BUFFER 

RESET INPUT BUFFER POINTER 

RESTORE CARRY FLAG 



END LINE ENTRY 



* INSERT A CHARACTER INTO THE BASIC LINE INPUT BUFFER 

LA3D9 CMPA #$20 IS IT CONTROL CHAR? 

BLO LA39A BRANCH IF CONTROL CHARACTER 
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0535 


A30D 


81 


7B 




0536 


A3DF 


24 


B9 




0537 


A3E1 


CI 


FA 




0538 


A3E3 


24 


B5 




0539 


A3E5 


A7 


80 




0540 


A3E7 


5C 






0541 


A3E8 


BD 


A2 


82 


0542 


A3EB 


20 


AD 




0543 










0544 










0545 


A3ED 


BD 


01 


6D 


0546 


A3F0 


96 


6F 




0547 


A3F2 


27 


21 




0548 


A3F4 


4C 






0549 


A3F5 


26 


0C 




0550 


A3F7 


96 


78 




0551 


A3F9 


26 


05 




0552 


A3FB 


C6 


2C 




0553 


A3FD 


7E 


AC 


46 


0554 


A400 


4A 






0555 


A401 


27 


12 




0556 


A403 


7E 


A6 


16 


0557 










0558 










0559 


A406 


BD 


01 


70 


0560 


A409 


96 


6F 




0561 


A40B 


4C 






0562 


A40C 


26 


07 




0563 


A40E 


96 


78 




0564 


A410 


27 


E9 




0565 


A412 


4A 






0566 


A413 


27 


EE 




0567 


A415 


39 






0568 










0569 










0570 


A416 


27 


0E 




0571 


A418 


BD 


A5 


A5 


0572 


A41B 


SD 


10 




0573 


A41D 


9D 


A5 




0574 


A41F 


27 


2A 




0575 


A421 


BD 


A5 


A2 


0576 


A424 


20 


F5 




0577 










0578 










0579 


A426 


BD 


01 


73 


0580 


A429 


86 


FF 




0581 


A42B 


97 


6F 




0582 










0583 


A420 


BD 


01 


76 


0584 


A430 


96 


6F 




0585 


A432 


0F 


6F 




0586 


A434 


4C 






0587 


A435 


26 


14 




0588 


A437 


96 


78 




0589 


A439 


81 


02 




0590 


A43B 


26 


0C 




0591 


A43D 


96 


79 




0592 


A43F 


27 


03 




0593 


A441 


BD 


A2 


A8 


0594 


A444 


C6 


FF 




0595 


A446 


BD 


A2 


AA 


0596 


A449 


0F 


78 




0597 


A44B 


39 






0598 










0599 










0600 


A44C 


BD 


A5 


78 


0601 


A44F 


9D 


A5 




0602 


A451 


27 


16 




0603 


A453 


BD 


B2 


6D 


0604 


A456 


C6 


41 




0605 


A458 


BD 


B2 


6F 


0606 


A45B 


26 


EE 




0607 


A45D 


4F 






0608 


A45E 


BD 


A6 


5C 


0609 


A461 


86 


FF 




0610 


A463 


97 


6F 




0611 


A465 


4F 






0612 


A466 


7E 


B7 


64 


0613 










0614 










0615 


A469 


4F 






0616 


A46A 


9E 


8A 




0617 


A46C 


BD 


A6 


5F 


0618 


A46F 


0F 


78 




0619 


A471 


0C 


7C 




0620 


A473 


BD 


A7 


D8 


0621 


A476 


9E 


19 




0622 


A478 


9F 


7E 




0623 


A47A 


86 


FF 







CHPA 


#'z-l 




BCC 


LA39A 




CHPB 


#LBUFMX 




BCC 


LA39A 




STA 


,x+ 




INCB 




LA3E8 


JSR 


PUTCHR 




BRA 


LA39A 


* INPUT 


DEVICE 


NUMBER CH 


LA3ED 


JSR 


RVEC5 




LDA 


DEVNUM 




BEO 


LA415 




INCA 






BNE 


LA403 




LDA 


FILSTA 




BNE 


LA400 


LA3FB 


LDB 


#22*2 




JHP 


LAC46 


LA400 


DECA 






BEO 


LA415 


LA403 


JHP 


LA616 


* PRINT 


DEVICE 


NUMBER CH 


LA406 


JSR 


RVEC6 




LDA 


DEVNUH 




INCA 






BNE 


LA415 




LDA 


FILSTA 




BEO 


LA3FB 




DECA 






BEO 


LA403 


LA415 


RTS 




* CLOSE 






CLOSE 


BEQ 


LA426 




JSR 


LA5A5 


LA41B 


BSR 


LA42D 




JSR 


GETCCH 




BEO 


LA44B 




JSR 


LA5A2 




BRA 


LA41B 


* CLOSE 


ALL FILES HANDLE! 


LA426 


JSR 


RVEC7 




LDA 


#-1 




STA 


DEVNUH 


* CLOSE 


FILE HANDLER 


LA42D 


JSR 


RVEC8 




LDA 


DEVNUH 




CLR 


DEVNUH 




INCA 






BNE 


LA44B 




LDA 


FILSTA 




CHPA 


#2 




BNE 


LA449 




LDA 


CINCTR 




BEQ 


LA444 




JSR 


LA2A8 


LA444 


LDB 


#$FF 




JSR 


LA2AA 


LA449 


CLR 


FILSTA 


LA44B 


RTS 




* CSAVE 






CSAVE 


JSR 


LA578 




JSR 


GETCCH 




BEQ 


LA469 




JSR 


LB26D 




LDB 


#'A 




JSR 


LB26F 




BNE 


LA44B 




CLRA 






JSR 


LA65C 




LDA 


#-1 




STA 


DEVNUH 




CLRA 






JHP 


LIST 


* NON-ASCII CSAVE 


LA469 


CLRA 






LDX 


ZERO 




JSR 


LA65F 




CLR 


FILSTA 




INC 


BLKTYP 




JSR 


HRLDR 




LDX 


TXTTAB 


LA478 


STX 


CBUFAD 




LDA 


#255 



* IGNORE IF > LOWER CASE Z 

HAVE 250 OR HORE CHARACTERS BEEN ENTERED? 

YES, IGNORE ANY HORE 

PUT IT IN INPUT BUFFER 

INCREMENT CHARACTER COUNTER 

ECHO IT TO SCREEN 

GO SET SOME MORE 



HOOK INTO RAM 
DEVICE NUMBER 
RETURN IF SCREEN 

* BRANCH IF NOT CASSETTE (BAD FILE MODE) 
GET FILE STATUS 

FILE IS OPEN 

FILE NOT OPEN ERROR 
JUMP TO ERROR SERVICING ROUTINE 

* FILE IS IN INPUT MODE, RETURN 
BAD FILE MODE ERROR 



HOOK INTO RAM 
GET DEVICE NUMBER 

* RETURN IF NOT TAPE 
GET FILE STATUS 

FILE NOT OPEN ERROR 

* BAD FILE MODE - FILE IN INPUT HODE 



BRANCH IF NO NAHE SPECIFIED 

CHECK DEVICE NUMBER 

GO CLOSE A FILE 

GET CURRENT BASIC CHARACTER 

RETURN IF NO MORE FILES 

CHECK SYNTAX AND DEVICE NUMB 

KEEP CLOSING FILES 



HOOK INTO RAM 
CASSETTE DEVICE NUMBER 
SET DEVICE NUMBER 

HOOK INTO RAM 
GET DEVICE NUMBER 
SET TO SCREEN 

* BRANCH IF HAS NOT CASSETTE 

GET FILE STATUS 

IS IT OUTPUT MODE 

NO 

GET CHARACTER BUFFER CTR 

HRITE END OF PROG BLOCK IF BUFFER EMPTY 

HRITE A BLOCK TO TAPE 

END OF FILE TYPE BLOCK NUMBER 

HRITE END OF FILE TYPE BLOCK 

CASSETTE FILE STATUS CLOSED 



GO SCAN OFF NAME 

GET CURRENT CHARACTER IN THE BASIC LINE 

BRANCH IF NONE 

SYNTAX ERROR IF NOT COMMA 

IS THIS AN ASCII SAVE? 

SYNTAX ERROR IF NOT A 

RETURN IF NOT END OF LINE 

FILE TYPE = 

HRITE OUT HEADER BLOCK 

CASSETTE CODE 

SET DEVICE NUMBER TO CASSETTE 

CLEAR CARRY - FORCE LIST TO BEGIN AT PROGRAM START 

GO DO A LIST TO CASSETTE 



FILE TYPE = 

ZERO OUT ASCII FLAG AND FILE HODE 

HRITE HEADER BLOCK 

CLOSE FILES 

INCREMENT BLOCK NUMBER 

HRITE 55 S TO CASSETTE 

ADDRESS OF PROGRAM START 

STORE CURRENT BLOCK START ADDR 

255 BYTE BLOCKS 
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0624 


A47C 


97 


7D 




0625 


A47E 


DC 


IB 




0626 


A480 


93 


7E 




0627 


A482 


27 


0D 




0628 


A484 


10 


83 


00 


0629 


A488 


24 


02 




0630 


A48A 


D7 


7D 




0631 


A48C 


BD 


A7 


F4 


0632 


A48F 


20 


E7 




0633 


A491 


00 


7C 




0634 


A493 


0F 


7D 




0635 


A495 


7E 


A7 


E7 


0636 










0637 










0638 


A498 


0F 


78 




0639 


A49A 


81 


4D 




0640 


A49C 


27 


60 




0641 


A49E 


32 


62 




0642 


A4A0 


BD 


A5 


C5 


0643 


A4A3 


BD 


A6 


48 


0644 


A4A6 


7D 


01 


E4 


0645 


A4A9 


27 


ID 




0646 


A4AB 


B6 


01 


E3 


0647 


A4AE 


27 


ID 




0648 


A4B0 


BD 


AD 


19 


0649 


A4B3 


86 


FF 




0650 


A4B5 


97 


6F 




0651 


A4B7 


0C 


78 




0652 


A4B9 


BD 


A6 


35 


0653 


A4BC 


7E 


AC 


7C 


0654 










0655 










0656 










0657 


A4BF 


BD 


01 


85 


0658 


A4C2 


BD 


A4 


2D 


0659 


A4C5 


7E 


AC 


73 


0660 










0661 










0662 


A4C8 


B6 


01 


E2 


0663 


A4CB 


27 


03 




0664 


A4CO 


7E 


A6 


16 


0665 


A4D0 


BD 


AD 


19 


0666 


A4D3 


BD 


A7 


7C 


0667 


A4D6 


9E 


19 




0668 


A4D8 


9F 


7E 




0669 


A4DA 


DC 


7E 




0670 


A4DC 


4C 






0671 


A4DD 


BD 


AC 


37 


0672 


A4E0 


BD 


A7 


0B 


0673 


A4E3 


26 


13 




0674 


A4E5 


96 


7C 




0675 


A4E7 


27 


0F 




0676 


A4E9 


2A 


ED 




0677 


A4EB 


9F 


IB 




0678 


A4ED 


8D 


4C 




0679 


A4EF 


8E 


AB 


EC 


0680 


A4F2 


BD 


B9 


9C 


0681 


A4F5 


7E 


AC 


E9 


0682 










0683 










0684 


A4F8 


BD 


AD 


19 


0685 


A4FB 


7E 


A6 


19 


0686 










0687 










0688 


A4FE 


9D 


9F 




0689 


A500 


8D 


76 




0690 


A502 


BD 


A6 


48 


0691 


A505 


9E 


8A 




0692 


A507 


9D 


A5 




0693 


A509 


27 


06 




0694 


A50B 


BD 


B2 


6D 


0695 


A50E 


BD 


B7 


3D 


0696 


A511 


B6 


01 


E2 


0697 


A514 


81 


02 




0698 


A516 


26 


B5 




0699 


A518 


FC 


01 


E5 


0700 


A51B 


33 


8B 




0701 


A51D 


DF 


9D 




0702 


A51F 


7D 


01 


E4 


0703 


A522 


26 


A9 




0704 


A524 


FC 


01 


E7 


0705 


A527 


30 


8B 




0706 


A529 


9F 


7E 




0707 


A52B 


BD 


A7 


7C 


0708 


A52E 


BD 


A7 


0B 


0709 


A531 


26 


C8 




0710 


A533 


9F 


7E 




0711 


A535 


0D 


7C 




0712 


A537 


27 


C2 







STA 


BLKLEN 




LDD 


VARTAB 




SUBD 


CBUFAD 




BEQ 


LA491 




CHPD 


#255 




BHS 


LA48C 




STB 


BLKLEN 


LA48C 


JSR 


SNDBLK 




BRA 


LA478 


LA491 


NEC 


BLKTYP 




CLR 


BLKLEN 




JHP 


LA7E7 


* CLOAD 






CLOAD 


CLR 


FILSTA 




CHPA 


#'M 




BEQ 


LA4FE 




LEAS 


2,S 




JSR 


LA5C5 




JSR 


LA648 




TST 


CASBUF+ll 




BEQ 


LA4C8 




LDA 


CASBUF+9 




BEQ 


LA4CD 




JSR 


LAD 19 




LDA 


#-1 




STA 


DEVNUM 




INC 


FILSTA 




JSR 


LA635 




JHP 


LAC7C 



BLOCK SIZE 

END OF PROGRAM 

CURRENT BLOCK STARTING ADDR 

BRANCH IF IT CAME OUT EXACT 

MORE THAN 255 BYTES LEFT? 

YES 

USE ACTUAL BLOCK SIZE IF LESS THAN 255 

HRITE BLOCK TO CASSETTE 

DO ANOTHER BLOCK 

MAKE BLOCK NUMBER NEGATIVE (EOF BLOCK) 

ZERO BLOCK SIZE 

HRITE A BLOCK, TURN OFF MOTOR 



CLOSE FILES 

IS IT CLOADM? 

BRANCH IF SO 

GET RID OF THE RETURN 

GO GET FILE NAME 

SEARCH FOR FILE 

GET FILE MODE (NON-ZERO=DATA OR ASCII) 

ZERO = CRUNCHED BASIC OR MACHINE LANG 

GET ASCII FLAG 

BAD FILE NODE = CRUNCHED OR MACH LANG 
DO A NEW 

TAPE DEVICE NUMBER 
SET DEVICE NUMBER TO TAPE 
FILE TYPE = INPUT 
GO LOAD ASCII RECORD 
GO LOAD AND CRUNCH INPUT 



* COME HERE FROM BASIC S DIRECT LOOP IF CONSOLE 

* IN BUFFER EMPTY 
LA4BF JSR RVEC13 

JSR LA42D 
JMP LAC73 



HOOK INTO RAM 

CLOSE ACTIVE FILE 

GO TO BASIC S DIRECT LOOP 



* CLOAD 
LA4C8 



LA4CD 
LA4D0 



CRUNCHED BASIC 

LDA CASBUF+8 

LA4D0 

LA616 

LAD 19 

CASON 

TXTTAB 

CBUFAD 

CBUFAD 



BEQ 

JMP 

JSR 

JSR 

LDX 

STX 

LDD 

INCA 

JSR 

JSR 

BNE 

LDA 

BEQ 

BPL 

STX 

BSR 

LDX 

JSR 

JMP 



LAC37 

GETBLK 

LA4F8 

BLKTYP 

LA4F8 

LA4D8 

VARTAB 

LA53B 

#LABED- 

LB99C 

LACE9 



LA4F8 
LA4FB 



* CLOADM 
LA4FE 



JSR LAD19 
JMP LA619 



JSR 

BSR 

JSR 

LDX 

JSR 

BEQ 

JSR 

JSR 

LDA 

CMPA 

BNE 

LDD 

LEAU 

STU 

TST 

BNE 

LDD 

LEAX 

STX 

JSR 

JSR 

BNE 

STX 

TST 

BEQ 



GETNCH 

LA578 

LA648 

ZERO 

GETCCH 

LA511 

LB26D 

LB73D 

CASBUF+8 

#2 

LA4CD 

CASBUF+ll 

D,X 

EXECJP 

CASBUF+10 

LA4CD 

CASBUF+13 

D,X 

CBUFAD 

CASON 

GETBLK 

LA4FB 

CBUFAD 

BLKTYP 

LA4FB 



FILE TYPE 

ZERO IS CSAVE TYPE 

BAD FILE MODE IF NOT BASIC FILE 
DO A NEW 

TURN ON TAPE, START READING 
GET START OF PROGRAM ADDRESS 
STORE IT IN LOAD BUFFER 
GET START ADDRESS TO D REG 
ADD 256 TO LOAD ADDRESS 
SEE IF ROOM BELOW STACK FOR ONE BLOCK 
READ A BLOCK 

GOT AN ERROR DURING READ 
BLOCK NUMBER 

I/O ERROR IF HEADER BLOCK TYPE 
REAR MORE IF BLOCK NUMBER POSITIVE 
SET END OF PROGRAM ADDRESS 
TURN OFF TAPE DECK 
POINT TO OK MESSAGE 
PRINT OK TO CONSOLE OUT 
RESET INPUT POINTER, CLEAR VARIABLES AND 
RETURN TO MAIN LOOP OF BASIC 

DO A NEW 
I/O ERROR 



GET NEXT CHARACTER IN BASIC LINE 

GO SCAN OFF NAME 

SEARCH FOR FILE 

STORE ZERO TO X REG, DEFAULT OFFSET VALUE 

CHECK FOR AN OFFSET 

BRANCH IF NO OFFSET 

SYNTAX CHECK FOR COMMA 

EVALUATE OFFSET; RETURN VALUE IN X 

CHECK FILE MODE 

IS IT MACHINE LANGUAGE? 

BAD FILE MODE ERROR IF NOT 
GET TRANSFER ADDR FROM TAPE 
ADD OFFSET 

STORE TRANSFER ADDR IN EXEC ARGUMENT 
CHECK FILE MODE 

BAD FILE MODE ERROR 
GET LOAD ADDR FROM TAPE 
ADD OFFSET 

STORE IN BUFFER START ADDRESS POINTER 
START UP TAPE 
READ A BLOCK 
BRANCH IF I/O ERROR 

STORE NEW START ADDR (ONE BLOCK HIGHER) 
CHECK BLOCK NUMBER 
BRANCH IF I/O ERROR (HEADER BLOCK) 
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1713 


A539 


2A 


F3 




1714 


A53B 


7E 


A7 


E9 


1715 










1716 










1717 


A53E 


27 


05 




1718 


A540 


BD 


B7 


3D 


1719 


A543 


9F 


9D 




1720 


A545 


6E 


9F 


00 9D 


1721 










1722 










1723 


A549 


BD 


01 


7F 


1724 


A54C 


96 


6F 




1725 


A54E 


4C 






1726 


A54F 


27 


50 




1727 


A551 


7E 


AD 


EB 


1728 










1729 










1730 










1731 


A554 


BD 


B3 


E4 


1732 


A557 


83 


01 


FF 


1733 


A55A 


10 


22 


BE EC 


734 


A55E 


C3 


05 


FF 


!735 


A561 


DD 


88 




1736 


A563 


39 






1737 










1738 










1739 


A564 


96 


87 




!740 


A666 


26 


03 




1741 


A568 


BD 


Al 


CB 


742 


A56B 


0F 


87 




1743 


A56D 


97 


53 




1744 


A56F 


10 


26 


11 1C 


i745 


A573 


97 


56 




746 


A575 


7E 


B6 


9B 


1747 










1748 










!749 


A578 


8E 


01 


Dl 


1750 


A57B 


6F 


80 




1751 










1752 


A57D 


86 


20 




1753 


A57F 


A7 


80 




i754 


A581 


8C 


01 


DA 


1755 


A584 


26 


F9 




1756 


A586 


9D 


A5 




1757 


A588 


27 


17 




1758 


A58A 


BD 


Bl 


56 


!759 


A58D 


BD 


B6 


54 


1760 


A590 


CE 


01 


Dl 


1761 


A593 


E7 


C0 




1762 


A595 


27 


0A 




1763 


A597 


8C 






764 


A597 


C6 


08 




1765 










1766 










1767 


A59A 


A6 


80 




1768 


A59C 


A7 


C0 




1769 


A59E 


5A 






1770 


A59F 


26 


F9 




1771 


A5A1 


39 






1772 










1773 










1774 


A5A2 


BD 


B2 


6D 


1775 


A5A5 


81 


23 




1776 


A5A7 


26 


02 




1777 


A5A9 


9D 


9F 




1778 


A5AB 


BD 


Bl 


41 


1779 


A5AE 


BD 


B3 


ED 


1780 


A5B1 


59 






1781 


A5B2 


89 


00 




1782 


A5B4 


26 


69 




1783 


A5B6 


56 






1784 


A5B7 


D7 


6F 




1785 


A5B9 


BD 


01 


61 


1786 


A5BC 


27 


06 




1787 


A5BE 


2A 


5F 




1788 


A6C0 


CI 


FE 




1789 


A5C2 


2D 


5B 




1790 


A5C4 


39 






1791 










1792 










1793 










1794 










1795 


A5C5 


8D 


Bl 




1796 


A5C7 


9D 


A5 




1797 


A5C9 


27 


F9 




1798 


A5CB 


7E 


B2 


77 





BPL 


LA52E 


LA53B 


JHP 


LA7E9 


* EXEC 






EXEC 


BEQ 


LA545 




JSR 


LB73D 




STX 


EXECJP 


LA545 


JHP 


[EXECJP] 


* BREAK 


CHECK 




LA549 


JSR 


RVEC11 




LDA 


DEVNUH 




INCA 






BEQ 


LA5A1 




JHP 


LADEB 



GO READ SOME MORE 

GO TURN OFF TAPE DECK 



BRANCH IF NO ARGUMENT 

EVALUATE ARGUMENT - ARGUMENT RETURNED IN 

STORE X TO EXEC JUMP ADDRESS 

GO DO IT 



HOOK INTO RAM 

GET DEVICE NUMBER 

CHECK FOR TAPE 

RETURN IF TAPE 

GO DO BREAK KEY CHECK 



THIS ROUTINE EVALUATES AN ARGUMENT 

AND MAKES SURE IT IS HITHIN LIMITS OF VIDEO DISPLAY RAM 



LA554 


JSR 


LB3E4 




SUBD 


#511 




LBHI 


LB44A 




ADDD 


#VIDRAM+511 




STD 


CURPOS 




RTS 




* INKEY» 






INKEY 


LDA 


IKEYIM 




BNE 


LA56B 




JSR 


KEYIN 


LA56B 


CLR 


IKEYIM 




STA 


FPA0+3 




LBNE 


LB68F 




STA 


STRDES 




JHP 


LB69B 


* STRIP A 


FILENAME OFF OF TH 


LA578 


LDX 


#CFNBUF 




CLR 


,x+ 




LDA 


#SPACE 


LA57F 


STA 


,x+ 




CHPX 


#CASBUF 




BNE 


LA57F 




JSR 


GETCCH 




BEQ 


LA5A1 




JSR 


LB156 




JSR 


LB654 




LDU 


#CFNBUF 




STB 


,u+ 




BEQ 


LA5A1 




FCB 


SKP2 



* MOVE ACCB BYTES FROM (X) TO (U) 
LA59A LDA , X+ 

STA ,U+ 

DECB 

BNE LA59A 
LA5A1 RTS 



EVALUATE EXPRESSION AND RETURN VALUE IN ACCD 
ONLY 512 VIDEO DISPLAY LOCATIONS 
BRANCH IF > 511 TO ILLEGAL FUNCTION CALL 
ADD BACK IN OFFSET + START OF VIDEO RAM 
PUT THE CURSOR THERE 



HAS A KEY DOHN IN THE BREAK CHECK? 

YES 

GO GET A KEY 

CLEAR INKEY RAM IMAGE 

STORE THE KEY IN FPA0 

CONVERT FPA0+3 TO A STRING 

SET LENGTH OF STRING = IF NO KEY DOHN 

PUT A NULL STRING ONTO THE STRING STACK 



POINT TO FILE NAME BUFFER 

CLEAR THE FIRST BYTE - IT HILL CONTAIN THE COUNT 

OF THE NUMBER OF CHARACTERS IN THE NAME 

SPACE 

BLANK FILL 8 CHARS 

DONE? 

NO 

GET CURRENT INPUT CHAR 

RETURN IF NO NAME 

GET THE FILE NAME - EVALUATE EXPRESSION 

POINT X TO START OF NAME (TOP STRING ON STRING STACK) 

CASSETTE FILE NAME BUFFER 

STORE THE NUMBER OF BYTES IN THE NAME 

NULL NAME (BLANK NAME) 

SKIP THE NEXT THO BYTES 

MOVE 8 BYTES 



GET BYTE FROM X 
STORE IT AT U 
MOVED ALL BYTES? 
NO 



GET DEVICE NUMBER FROM BASIC LINE - CHECK VALIDITY 



CHECK FOR COMMA, SYNTAX ERROR IF NONE 

IS NEXT CHARACTER A NUMBER? 

NO 

GET NEXT BASIC INPUT CHARACTER 

EVALUATE EXPRESSION 

CONVERT FPA0 TO INTEGER, RETURN VALUE IN ACCD 

MSB OF ACCB TO CARRY 

ADD MSB OF ACCB TO ACCA 

DEVICE # ERROR IF ACCA<FF80 OR >007F 
RESTORE ACCB 

STORE B IN DEVICE NUMBER 
HOOK INTO RAM 
BRANCH IF DEVICE NUMBER SET TO SCREEN 

DEVICE NUMBER ERROR IF POSITIVE DEVICE NUMBER 
LOWEST LEGAL DEVICE NUMBER 

DEVICE NUMBER ERROR 



** THIS ROUTINE HILL SCAN OFF THE FILE NAME FROM A BASIC LINE 

** AND RETURN A SYNTAX ERROR IF THERE ARE ANY CHARACTERS 

** FOLLOHING THE END OF THE NAME 

LA5C5 BSR LA578 SCAN OFF NAME 

JSR GETCCH GET CURRENT INPUT CHAR FROM BASIC LINE 

LA5C9 BEQ LA5C4 RETURN IF END OF LINE 

JMP LB277 SYNTAX ERROR IF ANY HORE CHARACTERS 



LA5A2 


JSR 


LB26D 


LA5A5 


CHPA 


#'# 




BNE 


LA5AB 




JSR 


GETNCH 


LA5AB 


JSR 


LB141 


LA5AE 


JSR 
ROLB 


INTCNV 




ADCA 


#0 




BNE 


LA61F 




RORB 






STB 


DEVNUH 




JSR 


RVEC1 




BEQ 


LA5C4 




BPL 


LA61F 




CHPB 


#-2 



* EOF 
EOF 



HOOK INTO RAH 
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0802 


A5D1 


96 


6F 




0803 


A5D3 


34 


02 




0804 


A5D5 


8D 


D7 




0805 


A5D7 


BD 


A3 


ED 


0806 


A5DA 


5F 






0807 


A5DB 


96 


6F 




0808 


A5DD 


27 


05 




0809 


A5DF 


0D 


79 




0810 


A5E1 


26 


01 




0811 


A5E3 


53 






0812 


A5E4 


35 


02 




0813 


A5E6 


97 


6F 




0814 


A5E8 


ID 






0815 


A5E9 


7E 


B4 


F4 


0816 










0817 










0818 


A5EC 


8D 


D7 




0819 


A5EE 


8D 


58 




0820 


A5F0 


BD 


A6 


Dl 


0821 


A5F3 


26 


24 




0822 


A5F5 


39 






0823 










0824 










0825 


A5F6 


BD 


01 


5E 


0826 


A5F9 


BD 


Bl 


56 


0827 


A6FC 


BD 


B6 


A4 


0828 


A5FF 


34 


04 




0829 


A601 


8D 


9F 




0830 


A603 


BD 


B2 


6D 


0631 


A606 


8D 


BD 




0832 


A608 


96 


6F 




0833 


A60A 


0F 


6F 




0834 


A60C 


35 


04 




0835 


A60E 


CI 


49 




0836 


A610 


27 


12 




0837 


A612 


CI 


4F 




0838 


A614 


27 


42 




0839 










0840 










0841 


A616 


C6 


2A 




0842 


A618 


8C 






0843 


A619 


C6 


28 




0844 


A61B 


8C 






0845 


A61C 


C6 


24 




0846 


A61E 


8C 






0847 


A61F 


C6 


26 




0848 


A621 


7E 


AC 


46 


0849 










0850 


A624 


4C 






0851 


A625 


2B 


EF 




0852 


A627 


26 


2E 




0853 










0854 


A629 


8D 


ID 




0855 


A62B 


B6 


01 


E3 


0856 


A62E 


B4 


01 


E4 


0857 


A631 


27 


E3 




0858 


A633 


0C 


78 




0859 


A635 


BD 


A7 


01 


0860 


A638 


26 


DF 




0861 


A63A 


0D 


7C 




0862 


A63C 


27 


DB 




0863 


A63E 


2B 


17 




0864 


A640 


96 


7D 




0865 


A642 


27 


Fl 




0866 


A644 


97 


79 




0867 


A646 


20 


0A 




0868 










0869 










0870 


A648 


0D 


78 




0871 


A64A 


26 


D0 




0872 


A64C 


8D 


33 




0873 


A64E 


26 


C9 




0874 


A650 


0F 


79 




0875 


A652 


8E 


01 


DA 


0876 


A655 


9F 


7A 




0877 


A657 


39 









LDA 


DEVNUH 




PSHS 


A 




BSR 


LA5AE 






LA3ED 




CLRB 






LDA 


DEVNUH 




BEQ 


LA5E4 




TST 


CINCTR 




BNE 


LA5E4 




COMB 




LA5E4 


PULS 


A 




STA 


DEVNUH 


LA5E8 


SEX 






JHP 


GIVABF 


* SKIPF 






SKIPF 


BSR 


LA5C6 




BSR 


LA648 




JSR 


LA6D1 




BNE 


LA619 




RTS 




* OPEN 






OPEN 


JSR 


RVECB 




JSR 


LB156 




JSR 


LB6A4 




PSHS 


B 




BSR 


LA5A2 




JSR 


LB26D 




BSR 


LA5C5 




LDA 


DEVNUH 




CLR 


DEVNUH 




PULS 


B 




CHPB 


#'I 




BEQ 


LA624 




CHPB 


#'0 




BEQ 


LA658 


* IF IT 


ISN T INPUT OR OUTPUT 


LA616 


LDB 


#21*2 




FCB 


SKP2 


LA619 


LDB 


#20*2 




FCB 


SPK2 


LA61C 


LDB 


#18*2 




FCB 


SKP2 


LA61F 


LDB 


#19*2 




JHP 


LAC46 


LA624 


INCA 






BMI 


LA616 




BNE 


LA657 


* SET TO 


TAPE 






BSR 


LA648 




LDA 


CASBUF+9 




ANDA 


CASBUF+10 




BEQ 


LA616 




INC 


FILSTA 


LA635 


JSR 


LA701 




BNE 


LA619 




TST 


BLKTYP 




BEQ 


LA619 




BHI 


LA657 




LDA 


BLKLEN 




BEQ 


LA635 


LA644 


STA 


CINCTR 




BRA 


LA652 


* SEARCH 


FOR FILE NAHE IN CNHI 


LA648 


TST 


FILSTA 




BNE 


LA61C 




BSR 


LA681 




BNE 


LA619 


LA650 


CLR 


CINCTR 


LA652 


LDX 


#CASBUF 




STX 


CINPTR 


LA657 


RTS 





GET DEVICE NUHBER 

SAVE IT 

CHECK DEVICE NUMBER 

CHECK FOR PROPER FILE AND MODE 

NOT EOF FLAG = 

TEST DEVICE NUMBER 

BRANCH IF NOT SET TO DISPLAY 

ANY CHARACTERS LEFT TO SEND? 

YES 

NO - EOF: SET FLAG = -1 <$FF) 

GET DEVICE NUMBER BACK AGAIN 

RESTORE IT 

CONVERT ACCB TO 2 DIGIT SIGNED INTEGER 

CONVERT ACCD TO FLOATING POINT 



SCAN OFF THE BASIC FILE NAME 

LOOK FOR THAT FILE ON TAPE 

READ THE FILE 

I/O ERROR 



HOOK INTO RAM 

GET FILE STATUS < INPUT , OUTPUT) 

GET FIRST BYTE OF STATUS STRING TO ACCB 

SAVE IT ON STACK 

CHECK FOR SYNTAX AND GET DEVICE NUMBER 

SYNTAX CHECK FOR COMMA, SYNTAX ERROR IF NOT 

GET FILE NAME 

GET DEVICE NUMBER 

SET DEVICE NUMBER TO SCREEN 

GET STATUS AGAIN 

IS IT INPUT MODE? 

YES 

IS IT OUTPUT MODE? 

YES 

BAD FILE MODE 

ERROR # 21 BAD FILE MODE 

SKIP TWO BYTES 

ERROR # 20 I/O ERROR 

SKIP TWO BYTES 

ERROR # 18 FILE ALREADY OPEN 

SKIP TWO BYTES 

ERROR # 19 DEVICE NUMBER ERROR 

JUMP TO ERROR HANDLER 

DEVICE NUMBER SET TO TAPE? 

BAD FILE MODE IF DEVNUM = NEG BUT NOT CASSETTE 
RETURN IF DEVNUM HAS SET TO SCREEN OR DISK 

GET HEADER BLOCK 
GET ASCII FLAG 

AND IT WITH FILE MODE 

BAD FILE MODE - CRUNCHED FILE OR MACH LANG 
OPEN FILE FOR INPUT 
START TAPE, READ A BLOCK 

I/O ERROR 
CHECK BLOCK NUMBER 

I/O ERROR IF HEADER BLOCK 
BRANCH IF THIS IS THE LAST BLOCK 
CHAR COUNT 

READ ANOTHER BLOCK IF NULL BLOCK 
STORE IN TEMP CHARACTER COUNTER 
RESET BUFFER POINTER 



IS THE FILE OPEN? 

YES- FILE ALREADY OPEN 

SEARCH FOR CORRECT FILE NAME 

I/O ERROR 
CLEAR CHARACTER COUNTER 
CASSETTE INPUT BUFFER ADDRESS 
RESET IT 



WRITE OUT THE HEADER BLOCK 



0882 
0883 



A658 

A659 



** CASBUF 




** CASBUF+8 




** CASBUF+9 




** CASBUF+10 




** CASBUF+11, 


.12 


** CASBUF+13 


14 


* ENTER HERE 


FO 


LA658 INCA 



FILE NAME 
FILE TYPE 
ASCII FLAG 
FILE MODE 
TRANSFER ADDRESS 
START ADDRESS 



FOR DATA FILES H/DEVICE NUMBER IN ACCA 

CHECK FOR CASSETTE DEVICE NUMB 
BNE LA657 RETURN IF DEVICE NUMBER MASN T 
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8893 


A65C 


8E 


FF 


FF 


0894 


A65F 


0D 


78 




0895 


A661 


26 


B9 




0896 


A663 


CE 


01 


DA 


0897 


A666 


DF 


7E 




0898 


A668 


A7 


48 




0899 


A66A 


AF 


49 




0900 










0901 










0902 










0903 










0904 










0905 










0906 










0907 










0908 


A66C 


8E 


01 


D2 


0909 


A66F 


BD 


A5 


98 


0910 


A672 


0F 


7C 




0911 


A674 


86 


0F 




0912 


A676 


97 


7D 




0913 


A678 


BD 


A7 


E5 


0914 


A67B 


86 


02 




0915 


A67D 


97 


78 




0916 


A67F 


20 


CF 




0917 










0918 










0919 


A681 


8E 


01 


DA 


0920 


A684 


9F 


7E 




0921 


A686 


96 


68 




0922 


A688 


4C 






0923 


A689 


26 


0B 




0924 


A68B 


BD 


A9 


28 


0925 


A68E 


9E 


88 




0926 


A690 


C6 


53 




0927 


A692 


E7 


81 




0928 


A694 


9F 


88 




0929 


A696 


8D 


69 




0930 


A698 


DA 


7C 




0931 


A69A 


26 


34 




0932 


A69C 


8E 


01 


DA 


0933 


A69F 


CE 


01 


D2 


0934 


A6A2 


C6 


08 




0935 


A6A4 


6F 


E2 




0936 


A6A6 


A6 


80 




0937 


A6A8 


10 


9E 


68 


0938 


A6AB 


31 


21 




0939 


A6AD 


26 


05 




0940 


A6AF 


0F 


6F 




0941 


A6B1 


BD 


A2 


82 


0942 


A6B4 


A0 


C0 




0943 










0944 


A6B6 


AA 


E4 




0945 


A6B8 


A7 


E4 




0946 


A6BA 


5A 






0947 


A6BB 


26 


E9 




0948 


A6BD 


A6 


E0 




0949 


A6BF 


27 


0A 




0950 


A6C1 


6D 


57 




0951 


A6C3 


27 


06 




0952 










0953 


A6C5 


8D 


0A 




0954 


A6C7 


26 


07 




0955 


A6C9 


20 


BB 




0956 


A6CB 


86 


46 




0957 


A6C0 


8D 


29 




0958 


A6CF 


4F 






0959 


A6D0 


39 






0960 


A6D1 


7D 


01 


E4 


0961 


A6D4 


26 


09 




0962 


A6D6 


BD 


A7 


7C 


0963 


A6D9 


8D 


30 




0964 


A6DB 


8D 


08 




0965 


A6DD 


20 


FA 




0966 


A6DF 


8D 


20 




0967 


A6E1 


8D 


02 




0968 


A6E3 


20 


FA 




0969 


A6E5 


26 


06 




0970 


A6E7 


96 


7C 




0971 


A6E9 


40 






0972 


A6EA 


2B 


14 




0973 


A6EC 


4A 






0974 










0975 










0976 










0977 


A6ED 


97 


81 




0978 


A6EF 


32 


62 




0979 


A6F1 


20 


12 







INCA 




* ENTER 


HERE FOF 


: ASCII FILES 


LA65C 


LDX 


#$FFFF 


LA65F 


TST 


FILSTA 




BNE 


LA61C 




LDU 


#CASBUF 




STU 


CBUFAD 




STA 


8,U 




STX 


9,U 


* 


CASBUF 


+8 +9 


* BASIC 


CRUNCHEE 


i 00 


* BASIC 


ASCII 




* DATA 






* MACHINE LANGUAGE 02 1 


* MACHINE BLK LOAD 02 




LDX 


#CFNBUF+1 




JSR 


LA598 




CLR 


BLKTYP 




LDA 


#15 




STA 


BLKLEN 




JSR 


LA7E5 




LDA 


#2 




STA 


FILSTA 




BRA 


LA650 


* SEARCH 


1 FOR CORRECT CASSETTE FILE 


LA681 


LDX 


#CASBUF 




STX 


CBUFAD 


LA686 


LDA 
INCA 


CURLIN 




BNE 


LA696 




JSR 


LA928 




LDX 


CURPOS 




LDB 


#'S 




STB 


,X++ 




STX 


CURPOS 


LA696 


BSR 


LA701 




ORB 


BLKTYP 




BNE 


LA6D0 




LDX 


#CASBUF 




LDU 


#CFNBUF+1 




LDB 


#8 




CLR 


,-s 


LA6A6 


LDA 


,x+ 




LDY 


CURLIN 




LEAY 


1,Y 




BNE 


LA6B4 




CLR 


DEVNUM 




JSR 


PUTCHR 


LA6B4 


SUBA 


,u+ 




ORA 


,S 




STA 


,S 




DECB 






BNE 


LA6A6 




LDA 


,s+ 




BEQ 


LA6CB 




TST 


-9,U 




BEQ 


LA6CB 


* DIDN'T 


FIND THE RIGHT FILE IF HE 




BSR 


LA6D1 




BNE 


LA6D0 




BRA 


LA686 


LA6CB 


LDA 


#'F 




BSR 


LA6F8 




CLRA 




LA6D0 


RTS 




LA6D1 


TST 


CASBUF+10 




BNE 


LA6DF 




JSR 


CASON 


LA6D9 


BSR 


GETBLK 




BSR 


LA6E5 




BRA 


LA6D9 


LA6DF 


BSR 


LA701 




BSR 


LA6E5 




BRA 


LA6DF 


LA6E5 


BNE 


LA6ED 




LDA 


BLKTYP 




NEGA 






BMI 


LA700 




DECA 





MAKE FILE TYPE 



1 



STA 
LEAS 



SET ASCII FLAG AND MODE = $FF 

IS FILE OPEN? 

YES- FILE ALREADY OPEN 

CASSETTE INPUT BUFFER 

STORE IN STARTING ADDRESS 

FILE TYPE IN CASBUF+8 

ASCII FLAG & MODE IN CASBUF+9, CASBUF+10 



FF 

POINT X TO FILE NAME BUFFER 

MOVE 8 BYTES FROM (X) TO (U) 

ZERO BLOCK NUMBER 

15 BYTES IN THE HEADER BLOCK 

CHAR COUNT 

GO HRITE ONE BLOCK 

OUTPUT FILE 

STORE IN FILE MODE 

RESET POINTERS 



CASSETTE BUFFER 

LOAD ADDRESS POINTER 

GET CURRENT LINE NUMBER MSB (CURLIN) 

IN DIRECT MODE IF ACCA = $FF 

BRANCH IF NOT DIRECT MODE 

CLEAR SCREEN 

CURRENT SCREEN CHAR POSITION 

S MEANS SEARCHING 
PUT AN S ON THE SCREEN 
STORE NEW CURSOR LOCATION 
READ ONE BLOCK FROM TAPE 

OR ERROR FLAG HITH BLOCK NUMBER 
BRANCH IF NOT BLOCK ZERO OR ERROR 
POINT TO CASSETTE BUFFER 
POINT TO DESIRED NAME 
EIGHT CHARACTERS MAX IN NAME 
ZERO A BYTE ON THE STACK 
GET CHAR FROM CASSETTE BLOCK 
GET CURLIN 
DIRECT MODE? 

FALL THROUGH IF DIRECT MODE 
SET DEVICE NUMBER TO SCREEN 
OUTPUT A CHAR 

SUBTRACT A CHAR FROM DESIRED NAME 
NON-ZERO RESULT IF NO MATCH 

OR HITH TOP OF STACK, RESULT HILL BE NON-ZERO IF MISMATCH 
SAVE IT 

DONE ALL 8 CHARACTERS? 
NO 

SEE IF ALL CHARS HERE OK 
BRANCH IF GOOD COMPARE 

CHECK THE NUMBER OF CHARACTERS IN THE CLOAD STATEMENT 
IF NO NAME SPECIFIED, ANY FILE IS OK 

LOOK FOR FILE 
RETURN IF ERROR 
GO LOOK SOME MORE 

* PUT F ON THE SCREEN IF DIRECT MODE 
SET ZERO FLAG TO INDICATE NO ERRORS 

CHECK FILE MODE 

BRANCH IF ASCII OR DATA 

TURN ON TAPE DECK 

LOAD A BLOCK FROM TAPE 

CHECK FOR ERROR OR LAST BLOCK 

KEEP GOING 

READ ONE BLOCK FROM TAPE 

CHECK FOR ERROR OR LAST BLOCK 

KEEP READING BLOCKS 

GOT AN ERROR ON READING IN BLOCK 

GET BLOCK NUMBER 

CHECK FOR LAST BLOCK 

RETURN IF NOT AN END OF PROGRAM BLOCK 

IF BLOCK NUMBER HAS »FF, ACCA IS NOH ZERO - THIS HILL 

CAUSE CLOAD TO IGNORE ERRORS IN THE 

BLOCKS HHICH IT IS SKIPPING HHILE 

LOOKING FOR THE CORRECT FILE NAME. 

STORE ACCA TO ERROR FLAG 

REMOVE RETURN ADDRESS FROM STACK 

TURN OFF MOTOR 
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8980 


A6F3 


36 


04 00 


0981 


A6F6 


88 


40 


0982 


A6F8 


D6 


68 


0983 


A6FA 


5C 




0984 


A6FB 


26 


03 


0985 


A6FD 


B7 


04 00 


0986 


A700 


39 




0987 








0988 








0989 


A701 


8D 


79 


0990 


A703 


8D 


06 


0991 


A705 


BD 


A7 E9 


0992 


A708 


D6 


81 


0993 


A70A 


39 




0994 


A70B 


1A 


50 


0995 


A70D 


8D 


E4 


0996 


A70F 


9E 


7E 


0997 


A711 


4F 




0998 


A712 


8D 


41 


0999 


A714 


46 




1000 


A715 


81 


3C 


1001 


A717 


26 


F9 


1002 


A719 


8D 


2E 


1003 


A71B 


97 


7C 


1004 


A71D 


8D 


2A 


1005 


A71F 


97 


7D 


1006 


A721 


9B 


7C 


1007 


A723 


97 


80 


1008 


A725 


96 


7D 


1009 


A727 


97 


81 


1010 


A729 


27 


10 


1011 


A72B 


8D 


1C 


1012 


A720 


A7 


84 


1013 


A72F 


Al 


80 


1014 


A731 


26 


11 


1015 


A733 


9B 


80 


1016 


A735 


97 


80 


1017 


A737 


0A 


81 


1018 


A739 


26 


F0 


1019 


A73B 


8D 


0C 


1020 


A73D 


90 


80 


1021 


A73F 


27 


05 


1022 


A741 


86 


01 


1023 


A743 


8C 




1024 


A744 


86 


02 


1025 


A746 


97 


81 


1026 


A748 


39 




1027 








1028 








1029 


A749 


86 


08 


1030 


A74B 


97 


82 


1031 


A74D 


8D 


06 


1032 


A74F 


46 




1033 


A750 


0A 


82 


1034 


A752 


26 


F9 


1035 


A754 


39 




1036 








1037 








1038 


A755 


8D 


06 


1039 


A757 


D6 


83 


1040 


A759 


5A 




1041 


A75A 


Dl 


8F 


1042 








1043 








1044 








1045 


A75C 


39 




1046 








1047 








1048 


A75D 


0F 


83 


1049 


A75F 


0D 


84 


1050 


A761 


26 


10 


1051 








1052 


A763 


8D 


07 


1053 


A765 


25 


FC 


1054 


A767 


8D 


03 


1055 


A769 


24 


FC 


1056 


A76B 


39 




1057 








1058 








1059 


A76C 


0C 


83 


1060 


A76E 


F6 


FF 20 


1061 


A771 


56 




1062 


A772 


39 




1063 








1064 








1065 


A773 


8D 


F7 


1066 


A775 


24 


FC 


1067 


A777 


8D 


F3 


1068 


A779 


25 


FC 



LA6F3 


LDA 


UIDRAM 




EORA 


#$40 


LA6F8 


LDB 
INCB 


CURLIN 




BNE 


LA700 




STA 


VIDRAM 


LA700 


RTS 




* READ A 


BLOCK 


FROM CASSETTE 


LA701 


BSR 


CASON 




BSR 


GETBLK 


LA705 




LA7E9 




LDB 


CSRERR 




RTS 




GETBLK 


ORCC 


#$50 




BSR 


LA6F3 




LDX 


CBUFAD 




CLRA 




LA712 


BSR 

RORA 


LA755 




CHPA 


#$3C 




BNE 


LA712 




BSR 


LA749 




STA 


BLKTYP 




BSR 


LA749 




STA 


BLKLEN 




ADDA 


BLKTYP 




STA 


CCKSUM 




LDA 


BLKLEN 




STA 


CSRERR 




BEQ 


LA73B 


LA72B 


BSR 


LA749 




STA 


,x 




CHPA 


,x+ 




BNE 


LA744 




ADDA 


CCKSUM 




STA 


CCKSUM 




DEC 


CSRERR 




BNE 


LA72B 


LA73B 


BSR 


LA749 




SUBA 


CCKSUM 




BEQ 


LA746 




LDA 


#1 




FCB 


SKP2 


LA744 


LDA 


#2 


LA746 


STA 

RTS 


CSRERR 


* GET A 


3YTE FROM TAPE 


LA749 


LDA 


#8 




STA 


CPULWD 


LA74D 


BSR 

RORA 


LA755 




DEC 


CPULHD 




BNE 


LA74D 




RTS 




* READ A 


BIT FROM THE TAPE 


LA755 


BSR 


LA75D 




LDB 


CPERTM 




DECB 






CMPB 


CMPMID 



1UNCH OF $55 OR $AA BYTES 



* MAIN 


TIMING LC 


IOP 


LA75D 




CLR 


CPERTM 






TST 


CBTPHA 






BNE 


LA773 


* LO - 


HI 


TRANSITION 


LA763 




BSR 


LA76C 






BCS 


LA763 


LA767 




BSR 


LA76C 






BCC 


LA767 






RTS 




* READ 


CASSETTE 


INPUT BIT OF THE PIA 


LA76C 




INC 


CPERTM 






LDB 


PIA1 






RORB 








RTS 




* WAIT 


FOR HI - 


LO TRANSITION 


LA773 




BSR 


LA76C 






BCC 


LA773 


LA777 




BSR 


LA76C 






BCS 


LA777 



GET FIRST CHAR ON SCREEN 

REVERSE THE VIDEO 

GET CURLIN MSB 

CHECK FOR DIRECT MODE 

BRANCH IF NOT DIRECT MODE 

PUT IT ON SCREEN 



START TAPE, AND LOOK FOR A 
READ A BLOCK 
TURN OFF MOTOR 
GET ERROR STATUS 

DISABLE IRQ, FIRQ 

REVERSE VIDEO UPPER LEFT CHAR IF DIRECT MODE 

GET LOAD ADDRESS 

RESET ACCA 

READ A BIT FROM TAPE, RETURN IT IN CARRY FLAG 

PUT BIT IN MSB OF ACCA 

GET SYNC ED ON $3C 

NOT SYNC ED YET 

GET BLOCK NUMBER 

SAVE IT 

GET CHAR COUNT 

SAVE IT 

ACCUMULATE CHECKSUM 

SAVE IT 

GET BACK CHAR COUNT 

TEMP SAVE 

NULL SET OF CHARACTERS 

GET BYTE FROM TAPE 

FILL MEMORY WITH TAPE DATA 

SEE IF WE READ BACK SAME THING 

BRANCH IF NOT PUTTING IT IN RAM 

ACCUMULATE CHECKSUM 

TEMP STORE CHECKSUM 

DECR TEMP CHAR COUNT 

GET ANOTHER CHARACTER 

GET CHECKSUM FROM TAPE 

COMPARE TO CALCULATED CHECKSUM 

BRANCH IF OK 

CHECKSUM ERROR FLAG 

SKIP TWO BYTES 

NON-RAM ERROR FLAG 

1 IF CHECKSUM ERROR, 2 IF LOADING INTO NON-RAM 



8 BITS/BYTE 

TEMP COUNTER 

READ A BIT FROM TAPE 

PUT IT INTO ACCA 

GOT ALL 8 BITS 

NO 



GET THE TIME BETWEEN TRANSITIONS 
* GET PERIOD TIMER 

CMPMID CONTAINS 18 INITIALLY, AND IS USED TO DETERMINE 

WHETHER THE BIT READ IS A ONE OR ZERO 

IF THE PERIOD TIMER IS < 18, THE BIT 

IS CONSIDERED TO BE A ONE, IF > 18, IT IS ZERO 



RESET PERIOD TIMER 

CHECK TO SEE IF SYNC ED ON THE HI-LO TRANSITION OR LO-HI 

BRANCH ON HI-LO TRANSITION 

READ CASSETTE INPUT BIT 
LOOP UNTIL IT IS LO 
READ CASSETTE INPUT DATA 
WAIT UNTIL IT GOES HI 



INCREMENT PERIOD TIMER 
GET CASSETTE INPUT BIT 
PUT CASSETTE BIT INTO THE CARRY FLAG 



READ CASSETTE INPUT DATA 

LOOP UNTIL IT IS HI 

READ CASSETTE INPUT 

LOOP UNTIL IT IS LO 
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1071 








1072 








1073 








1074 


A77C 


1A 


50 


1075 


A77E 


8D 


4A 


1076 


A780 


0F 


82 


1077 


A782 


8D 


DF 


1078 


A784 


8D 


27 


1079 


A786 


22 


0F 


1080 


A788 


8D 


ID 


1081 


A78A 


25 


0F 


1082 


A78C 


0A 


82 


1083 


A78E 


96 


82 


1084 


A790 


81 


A0 


1085 


A792 


26 


EE 


1086 


A794 


97 


84 


1087 


A796 


39 




1088 


A797 


8D 


0E 


1089 


A799 


22 


E9 


1090 


A79B 


8D 


10 


1091 


A79D 


25 


E9 


1092 


A79F 


0C 


82 


1093 


A7A1 


96 


82 


1094 


A7A3 


80 


60 


1095 








1096 


A7A5 


20 


EB 


1097 


A7A7 


0F 


83 


1098 


A7A9 


8D 


BC 


1099 


A7AB 


20 


04 


1100 


A7AD 


0F 


83 


1101 


A7AF 


8D 


C6 


1102 


A7B1 


D6 


83 


1103 


A7B3 


Dl 


90 


1104 


A7B5 


22 


03 


1105 


A7B7 


Dl 


91 


1106 


A7B9 


39 




1107 


A7BA 


0F 


82 


1108 


A7BC 


39 




1109 








1110 








1111 


A7BD 


IF 


89 


1112 


A7BF 


9D 


9F 


1113 


A7C1 


CI 


AA 


1114 


A7C3 


27 


24 


1115 


A7C5 


CI 


88 


1116 


A7C7 


BD 


A5 C9 


1117 


A7CA 


B6 


FF 21 


1118 


A7CD 


8A 


08 


1119 


A7CF 


8D 


IF 


1120 


A7D1 


9E 


8A 


1121 








1122 








1123 


A7D3 


30 


IF 


1124 


A7D5 


26 


FC 


1125 


A7D7 


39 




1126 








1127 








1128 


A7D8 


1A 


50 


1129 


A7DA 


8D 


EE 


1130 


A7DC 


9E 


92 


1131 


A7DE 


8D 


48 


1132 


A7E0 


30 


IF 


1133 


A7E2 


26 


FA 


1134 


A7E4 


39 




1135 








1136 








1137 


A7E5 


8D 


Fl 


1138 


A7E7 


8D 


0B 


1139 








1140 








1141 


A7E9 


1C 


AF 


1142 


A7EB 


B6 


FF 21 


1143 


A7EE 


84 


F7 


1144 


A7F0 


B7 


FF 21 


1145 


A7F3 


39 




1146 








1147 








1148 








1149 








1150 








1151 


A7F4 


1A 


50 


1152 


A7F6 


D6 


7D 


1153 


A7F8 


D7 


81 


1154 


A7FA 


96 


7D 


1155 


A7FC 


27 


07 


1156 


A7FE 


9E 


7E 


1157 


A800 


AB 


80 



*** LOOK 


FOR THE SYNC B' 


*** ON HI 


- LO 


TRANSITU 


*** LO - 


HI TRANSITION ( 


CASON 


ORCC 


#$50 




BSR 


LA7CA 




CLR 


CPOLUD 


LA782 


BSR 


LA763 


LA784 


BSR 


LA7AD 




BHI 


LA797 


LA788 


BSR 


LA7A7 




BCS 


LA79B 




DEC 


CPOLUD 




LDA 


CPOLUD 




CHPA 


#-96 


LA792 


BNE 


LA782 




STA 


CBTPHA 




RTS 




LA797 


BSR 


LA7A7 




BHI 


LA784 


LA79B 


BSR 


LA7AD 




BCS 


LA788 




INC 


CPDLHD 




LDA 


CPDLHD 




SUBA 


#96 




BRA 


LA792 


LA7A7 


CLR 


CPERTH 




BSR 


LA767 




BRA 


LA7B1 


LA7AD 


CLR 


CPERTM 




BSR 


LA777 


LA7B1 


LDB 


CPERTM 




CURB 


CMP0 




BHI 


LA7BA 




CURB 


CMP1 




RTS 




LA7BA 


CLR 

RTS 


CPULUD 


* MOTOR 






MOTOR 


TFR 


A,B 




JSR 


GETNCH 




CURB 


#$AA 




BEQ 


LA7E9 




CURB 


#$88 




JSR 


LA5C9 


LA7CA 


LDA 


PIA1+1 




ORA 


#$08 




BSR 


LA7F0 


LA7D1 


LDX 


ZERO 



YTES - RETDRN KITH ACCA = IF SYNC ED 

ON, ACCA = $A0 IF SYNC ED ON THE 

OF THE INPDT SIGNAL FROM THE CASSETTE. 

DISABLE IRQ, FIRQ 

TORN ON TAPE DECK MOTOR 

RESET DP TO SPEED CODNTER 

HAIT FOR LO-HI TRANSITION 

HAIT FOR HI-LO TRANSITION 

CASSETTE SPEED IN RANGE FOR 1200 HZ 

HAIT FOR LO-HI TRANSITION 

CASSETTE SPEED IN RANGE FOR 2400 HZ 

DECREMENT DP TO SPEED CODNTER IF SYNC ED ON LO-HI 

GET IT 

HAVE THERE BEEN 96 CONSECDTIVE 1-0-1-0 PATTERNS 

NO 

SAVE WHICH TRANSITION (HI-LO OR LO-HI) 

HAIT FOR LO-HI TRANSITION 

BRANCH IF THO CONSECDTIVE 1200 HZ PDLSES 

HAIT FOR HI-LO TRANSITION 

BRANCH IF THO CONSECDTIVE 2400 HZ PDLSES 

INCREMENT DP TO SPEED CODNTER IF SYNC ED ON HI-LO 

GET IT 

GOT ENODGH SYNC PDLSES? - ACCA HILL BE ZERO IF 

THERE HAVE BEEN 96 CONSECDTIVE 0-1-0-1 PATTERNS 

RESET PERIOD TIMER 

HAIT DNTIL CASSETTE INPDT GOES HI 

RESET PERIOD TIMER 

HAIT DNTIL CASSETTE GOES LO 

GET PERIOD TIMER 

DPPER LIMIT OF 1200 HZ PERIOD 

BRANCH IF CASSETTE SPEED IS TOO SLOH OR DROPODT 

DPPER LIMIT OF 2400 HZ PERIOD 

RESET UP TO SPEED CODNTER 



* DELAY UHILE DECREMENTING X TO ZERO 
LA7D3 LEAX -1,X 

BNE LA7D3 

RTS 



SAVE CDRRENT TOKEN IN ACCB 

GET NEXT INPDT CHARACTER FROM BASIC 

OFF TOKEN 
YES 

ON TOKEN 
SYNTAX ERROR IF IT UASN T ON OR OFF 
READ CRA OF D4 

TURN ON BIT 3 UHICH ENABLES MOTOR DELAY 
PDT IT BACK 
GET READY TO HAIT A HHILE 



DECREMENT X 
BRANCH IF NOT ZERO 



* SEND 


SYNCLN $55 S TO TAPE 




URLDR 


ORCC 


#$50 




DISABLE INTERRUPTS 




BSR 


LA7CA 




TURN ON TAPE DECK MOTOR 




LDX 


SYNCLN 




GET COUNT OF $55 S TO SE[ 


LA7DE 


BSR 


LA828 




SEND $55 TO TAPE 




LEAX 


-1,X 




ARE ALL $55 S SENT? 




BNE 


LA7DE 




NO 




RTS 








* URITE 


: SYNC BYTES AND A 


BLOCK TO TAPE 




LA7E5 


BSR 


URLDR 




URITE SYNC BYTES TO TAPE 


LA7E7 


BSR 


SNDBLK 




GO URITE A BLOCK 


* TURN 


OFF TAPE 


DECK MOTOR 




LA7E9 


ANDCC 


#$AF 




ENABLE IRQ, FIRQ 




LDA 


PIA1+1 




READ CRA OF U4 




ANDA 


#$F7 




TURN OFF BIT 3 


LA7F0 


STA 
RTS 


PIA1+1 




PUT IT BACK 



URITE A BLOCK TO CASSETTE 
BUFFER SIZE IN BLKLEN 
STARTING ADDR IN CBUFAD 
BLOCK NDMBER IN BLKTYP 



ORCC 


#$50 


LDB 


BLKLEN 


STB 


CSRERR 


LDA 


BLKLEN 


BEQ 


LA805 


LDX 


CBDFAD 


ADDA 


,x+ 



DISABLE IRQ, FIRQ 

GET CHAR COUNT 

TEMP CHAR COUNT 

GET CHAR COUNT (INCLUDED IN CHECKSDM) 

BRANCH IF NO CHARACTERS - NULL 

GET STARTING ADDRESS 

CHECKSUM THE BUFFER 



COLOR BASIC UNRAVELLED II 
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1158 


A802 


5A 










DECB 






1159 


A803 


26 


FB 








BNE 


LA800 




1160 


A805 


9B 


7C 






LA805 


ADDA 


BLKTYP 




1161 


A807 


97 


80 








STA 


CCKSUM 




1162 


A809 


9E 


7E 








LDX 


CBUFAD 




1163 


A80B 


8D 


IB 








BSR 


LA828 




1164 


A80D 


86 


3C 








LDA 


#$3C 




1165 


A80F 


8D 


19 








BSR 


LA82A 




1166 


A811 


96 


7C 








LDA 


BLKTYP 




1167 


A813 


8D 


15 








BSR 


LA82A 




1168 


A815 


96 


7D 








LDA 


BLKLEN 




1169 


A817 


8D 


11 








BSR 


LA82A 




1170 


A819 


4D 










TSTA 






1171 


A81A 


27 


08 








BEQ 


LA824 




1172 


A81C 


A6 


80 






LA81C 


LDA 


,x+ 




1173 


A81E 


8D 


0A 








BSR 


LA82A 




1174 


A820 


0A 


81 








DEC 


CSRERR 




1175 


A822 


26 


F8 








BNE 


LA81C 




1176 


A824 


96 


80 






LA824 


LDA 


CCKSUM 




1177 


A826 


8D 


02 








BSR 


LA82A 




1178 


A828 


86 


55 






LA828 


LDA 


#$55 




1179 




















1180 












* THIS 


ROUTINE SENDS THE A REG TO TAPE 


1181 


A82A 


34 


02 






LA82A 


PSHS 


A 




1182 


A82C 


C6 


01 








LDB 


#1 




1183 












* 








1184 


A82E 


96 


85 






LA82E 


LDA 


CLSTSN 




1185 


A830 


B7 


FF 


20 






STA 


DA 




1186 


A833 


10 


8E 


A8 


5C 




LDY 


#LA85C 




1187 


A837 


E5 


E4 








BITB 


,s 




1188 


A839 


26 


0D 








BNE 


LA848 




1189 












* LOU FREQUENCY 


LOOK UP 




1190 


A83B 


A6 


A0 






LA83B 


LDA 


,Y+ 




1191 


A83D 


10 


8C 


A8 


80 




CHPY 


#LA85C+36 




1192 


A841 


27 


12 








BEQ 


LA855 




1193 


A843 


B7 


FF 


20 






STA 


DA 




1194 


A846 


20 


F3 








BRA 


LA83B 




1195 












* HIGH 


FREQUENCY 


LOOK UP 




1196 


A848 


A6 


Al 






LA848 


LDA 


,Y++ 




1197 


A84A 


10 


8C 


A8 


80 




CHPY 


#LA85C+36 




1198 


A84E 


27 


05 








BEQ 


LA855 




1199 


A850 


B7 


FF 


20 






STA 


DA 




1200 


A853 


20 


F3 








BRA 


LA848 




1201 


A855 


97 


85 






LA855 


STA 


CLSTSN 




1202 


A857 


58 










ASLB 






1203 


A858 


24 


D4 








BCC 


LA82E 




1204 


A85A 


35 


82 








PULS 


A, PC 




1205 




















1206 












* THIS 


IS A LOOK 


-UP TABLE OF 


SINE VALUES 


1207 












* (BIT 


1 IS USEL 


TO KEEP THE 


SERIAL OUTP 


1208 


A85C 


82 


92 


AA 


BA CA 


DA LA85C 


FCB 


$82,$92,$AA 


$BA,$CA,$DA 


1209 


A862 


EA 


F2 


FA 


FA FA 


F2 


FCB 


$EA,$F2,$FA 


$FA,$FA,$F2 


1210 


A868 


EA 


DA 


CA 


BA AA 


92 


FCB 


$EA,$DA,$CA 


$BA,$AA,$92 


1211 


A86E 


7A 


6A 


52 


42 32 


22 


FCB 


$7A,$6A,$52 


$42, $32, $22 


1212 


A874 


12 


0A 


02 


02 02 


0A 


FCB 


$12,$0A,$02 


$02,$02,$0A 


1213 


A87A 


12 


22 


32 


42 52 


6A 


FCB 


$12, $22, $32 


$42,$52,$6A 


1214 




















1215 












* SET 








1216 


A880 


8D 


3F 






SET 


BSR 


LA8C1 




1217 


A882 


34 


10 








PSHS 


X 




1218 


A884 


BD 


B7 


38 






JSR 


LB738 




1219 


A887 


35 


10 








PULS 


X 




1220 


A889 


CI 


08 








CHPB 


#8 




1221 


A88B 


22 


48 








BHI 


LA8D5 




1222 


A88D 


5A 










DECB 






1223 


A88E 


2B 


05 








BHI 


LA895 




1224 


A890 


86 


10 








LDA 


#$10 




1225 


A892 


3D 










HUL 






1226 


A893 


20 


08 








BRA 


LA89D 




1227 


A895 


E6 


84 






LA895 


LDB 


,x 




1228 


A897 


2A 


03 








BPL 


LA89C 




1229 


A899 


C4 


70 








ANDB 


#$70 




1230 


A89B 


21 










FCB 


SKP1 




1231 


A89C 


5F 








LA89C 


CLRB 






1232 


A89D 


34 


04 








PSHS 


B 




1233 


A89F 


8D 


6C 








BSR 


LA90D 




1234 


A8A1 


A6 


84 








LDA 


,x 




1235 


A8A3 


2B 


01 








BHI 


LA8A6 




1236 


A8A5 


4F 










CLRA 






1237 


A8A6 


84 


0F 






LA8A6 


ANDA 


#$0F 




1238 


A8A8 


9A 


86 








ORA 


GRBLOK 




1239 


A8AA 


AA 


E0 








ORA 


,s+ 




1240 


A8AC 


8A 


80 






LA8AC 


ORA 


#$80 




1241 


A8AE 


A7 


84 








STA 


,x 




1242 


A8B0 


39 










RTS 






1243 




















1244 












* RESET 






1245 


A8B1 


8D 


0E 






RESET 


BSR 


LA8C1 




1246 


A8B3 


8D 


58 








BSR 


LA90D 





DONE ALL CHARACTERS? 

NO 

ADD IN THE BLOCK NUMBER 

SAVE THE CHECKSUM 

GET STARTING ADDRESS 

SEND $55 TO TAPE 

SYNC CHAR 

SEND TO TAPE 

GET BLOCK NUMBER 

SEND BLOCK NUMBER TO TAPE 

GET CHARACTER COUNT 

SEND CHAR COUNT TO TAPE 

SET FLAGS 

BRANCH IF CHAR COUNT IS ZERO 

GET BUFFER CHARACTER 

SEND BUFFER TO TAPE 

DECR TEMP CHAR COUNT 

NOT DONE YET 

GET CHECKSUM 

SEND CHECKSUM TO TAPE 

SEND A $55 TO TAPE 



SAVE OUTPUT CHARACTER 

ACCB CONTAINS A MASK USED TO DETERMINE WHETHER A 

BIT IN THE OUTPUT CHARACTER IS HI OR LO 

GET THE ENDING VALUE OF THE LAST SINE CYCLE 

STORE IN THE D/A CONVERTER 

SINE LOOK-UP TABLE FOR GENERATING FSK 

IS THE CURRENT BIT A ONE OR A ZERO ? 

IF A 1, DO HIGH FREQ 

USE EVERY BYTE IN TABLE IF LOU FREQUENCY 

END OF SINE TABLE? 

YES 

SEND NEXT VALUE TO D/A CONVERTER 

GET NEXT VALUE 

USE EVERY OTHER BYTE IF HIGH FREQUENCY 

END OF SINE TABLE? 

YES 

SEND NEXT VALUE TO D/A CONVERTER 

GET NEXT VALUE 

SAVE THE LAST VALUE SENT TO THE D/A CONVERTER 

SHIFT MASK BIT LEFT 

DONE WHEN MASK BIT IS SHIFTED INTO CARRY FLAG 

RESTORE OUTPUT CHARACTER AND RETURN 



6ET ABSOLUTE SCREEN POSITION OF GRAPHICS BLOCK 

SAVE CHARACTER LOCATION 

SYNTAX CHECK FOR COMHA - RETURN EXPR VALUE IN ACCB 

REGET CHARACTER LOCATION 

NINE ALLOWABLE COLORS 

ILLEGAL COLOR - ILLEGAL FUNCTION CALL 

CHANGE COLOR NUMBERS FROM 0-8 TO (-1 TO 7) 

BRANCH IF SET (X,Y,0) 

$10 OFFSET BETWEEN DIFFERENT COLORS 

MULT BY COLOR FOR TOTAL OFFSET 

GO SAVE THE COLOR 

GET CURRENT CHAR FROM SCREEN 

BRANCH IF NOT GRAPHIC 

SAVE ONLY THE COLOR INFO 

SKIP THE NEXT BYTE 

RESET ASCII BLOCK TO ZERO COLOR 

SAVE COLOR INFO 

SYNTAX CHECK FOR ) 

GET CURRENT CHARACTER FROH SCREEN 

BRANCH IF GRAPHIC 

RESET ASCII CHARACTER TO ALL PIXELS OFF 

SAVE ONLY PIXEL ON/OFF INFO 

OR WITH WHICH PIXEL TO TURN ON 

OR IN THE COLOR 
FORCE GRAPHIC 
DISPLAY IT ON THE SCREEN 



GET ABSOLUTE SCREEN ADDRESS OF THIS CHARACTER 
SYNTAX CHECK FOR ")" 



COLOR BASIC UNRAVELLED II 
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1247 


A8B5 


4F 






1248 










1249 


A8B6 


E6 


84 




1250 


A8B8 


2A 


F2 




1251 


A8BA 


03 


86 




1252 


A8BC 


D4 


86 




1253 


A8BE 


E7 


84 




1254 


A8C0 


39 






1255 










1256 










1257 










1258 










1259 










1260 










1261 


A8C1 


BD 


B2 


6A 


1262 


A8C4 


BD 


01 


9D 


1263 


A8C7 


BD 


B7 


0B 


1264 


A8CA 


CI 


3F 




1265 


A8CC 


22 


07 




1266 


A8CE 


34 


04 




1267 


A8D0 


BD 


B7 


38 


1268 


A8D3 


CI 


IF 




1269 


A8D5 


22 


71 




1270 


A807 


34 


04 




1271 


A8D9 


54 






1272 










1273 


A8DA 


86 


20 




1274 


A8DC 


3D 






1275 


A8DD 


8E 


04 


00 


1276 


A8E0 


30 


8B 




1277 


A8E2 


E6 


61 




1278 


A8E4 


54 






1279 


A8E5 


3A 






1280 


A8E6 


35 


06 




1281 


A8E8 


84 


01 




1282 


A8EA 


56 






1283 


A8EB 


49 






1284 


A8EC 


C6 


10 




1285 


A8EE 


54 






1286 


A8EF 


4A 






1287 


A8F0 


2A 


FC 




1288 


A8F2 


D7 


86 




1289 










1290 


A8F4 


39 






1291 










1292 










1293 


A8F5 


8D 


CD 




1294 


A8F7 


C6 


FF 




1295 


A8F9 


A6 


84 




1296 


A8FB 


2A 


0D 




1297 


A8FD 


94 


86 




1298 


A8FF 


27 


08 




1299 


A901 


E6 


84 




1300 


A903 


54 






1301 


A904 


54 






1302 


A905 


54 






1303 


A906 


54 






1304 


A907 


C4 


07 




1305 


A909 


5C 






1306 


A90A 


BD 


A5 


E8 


1307 


A90D 


7E 


B2 


67 


1308 










1309 










1310 


A910 


BD 


01 


A0 


1311 


A913 


27 


13 




1312 


A915 


BD 


B7 


0B 


1313 


A918 


CI 


08 




1314 


A91A 


22 


IB 




1315 


A91C 


5D 






1316 


A91D 


27 


06 




1317 


A91F 


5A 






1318 


A920 


86 


10 




1319 


A922 


3D 






1320 


A923 


CA 


01 




1321 


A925 


CA 


80 




1322 


A927 


8C 






1323 










1324 










1325 


A928 


C6 


60 




1326 


A92A 


8E 


04 


00 


1327 


A92D 


9F 


88 




1328 


A92F 


E7 


80 




1329 


A931 


8C 


05 


FF 


1330 


A934 


23 


F9 




1331 


A936 


39 






1332 


A937 


8D 


EF 




1333 


A939 


8E 


Al 


65 


1334 


A93C 


7E 


B9 


9C 


1335 











BPL 


LA8AC 


COM 


GRBLOK 


ANDB 


GRBLOK 


STB 


,x 


RTS 





THIS ROUTINE WILL CHECK SYNTAX 
OF SET, RESET & POINT HORIZONTA 
AND RETURN THEIR ABSOLUTE SCRE 
WHICH OF THE FOUR PIXELS OF TH 
IS RETURNED IN GRBLOK. 



LA8C1 


JSR 


LB26A 


LA8C4 


JSR 


RVEC21 




JSR 


LB70B 




CHPB 


#63 




BHI 


LA8D5 




PSHS 


B 




JSR 


LB738 




CHPB 


#31 


LA8D5 


BHI 


LA948 



LDA 


#32 


MUL 




LDX 


#VIDRAM 


LEAX 


D,X 


LDB 


l.S 


LSRB 




ABX 




PUTS 


A,B 


ANDA 


#1 


RORB 




ROLA 




LDB 


#$10 


LSRB 




DECA 




BPL 


LA8EE 


STB 


GRBLOK 



* POINT 






POINT 


BSR 


LA8C4 




LDB 


#$FF 




LDA 


,x 




BPL 


LA90A 




ANDA 


GRBLOK 




BEO 


LA909 




LDB 


,x 




LSRB 






LSRB 






LSRB 






LSRB 






ANDB 


#7 


LA909 


INCB 




LA90A 


JSR 


LA5E8 


LA90D 


JHP 


LB267 


* CLS 






CLS 


JSR 


RVEC22 




BEO 


LA928 




JSR 


LB70B 




CHPB 


#8 




BHI 


LA937 




TSTB 






BEQ 


LA925 




DECB 






LDA 


#$10 




MUL 






ORB 


#$0F 


LA925 


ORB 


#$80 




FCB 


SKP2 


* CLEAR 


SCREEN 




LA928 


LDB 


#$60 




LDX 


#VIDRAM 


LA92D 


STX 


CURPOS 


LA92F 


STB 


,x+ 




CHPX 


#VIDRAM+511 




BLS 


LA92F 




RTS 




LA937 


BSR 


LA928 




LDX 


#LA166-1 




JHP 


LB99C 



* ACCA=ZERO GRAPHIC BLOCK - FOR USE IN CASE YOU RE 

* TRYING TO RESET A NON GRAPHIC BLOCK 
GET CURRENT CHAR FROM SCREEN 

BRANCH IF NON-GRAPHIC 

INVERT PIXEL ON/OFF MASK 

AND IT WITH CURRENT ON/OFF DATA 

DISPLAY IT 



AND CHECK FOR LEGAL VALUES 
AND VERTICAL PARAMETERS 
EN ADDRESS IN THE X REGISTER 
GRAPHIC BLOCK SELECTED 

SYNTAX CHECK FOR "(" 

HOOK INTO RAM 

EVALUATE EXPRESSION - RETURN VALUE IN ACCB 

ONLY 64 HORIZONTAL GRAPHIC BLOCKS 

ILLEGAL FUNCTION CALL 
SAVE HOR COORD 

SYNTAX CHECK FOR COMMA AND EVALUATE EXPR 
ONLY 32 VERTICAL BLOCKS 

ILLEGAL FUNCTION CALL 
SAVE VERT COORD 

DIVIDE BY TWO BECAUSE THERE ARE 2 GRAPHIC PIXELS/HOR 
CHARACTER POSITION (BYTE) 
32 BYTES/ROW 

GET ROM OFFSET OF CHAR POSITION 
SCREEN BUFFER ADDRESS 

ADD ROW OFFSET TO SCREEN BUFFER ADDRESS 
GET HOR COORD 

2 VERTICAL PIXELS/CHARACTER POSITION 
ADD VERTICAL OFFSET TO CHARACTER ADDRESS 
GET VER COORD TO ACCA, HOR COORD TO ACCB 
KEEP ONLY LSB OF VER COORD 
LSB OF HOR COORD TO CARRY FLAG 
LSB OF HOR TO BIT OF ACCA 
MAKE A BIT MASK - TURN ON BIT 4 
SHIFT IT RIGHT ONCE 
SHIFTED IT ENOUGH? 
NO 

ACCB=8 FOR UPPER LEFT PIXEL, =4 FOR UPPER RIGHT 
PIXEL =2 FOR LOWER LEFT, =1 FOR LOWER RIGHT 



EVALUATE EXPRESSION 

INITIAL VALUE OF ON/OFF FLAG = OFF (FALSE) 

GET CURRENT GRAPHIC CHARACTER 

BRANCH IF NON-GRAPHIC (ALWAYS FALSE) 

AND CURR CHAR WITH THE PIXEL IN QUESTION 
BRANCH IF THE ELEMENT IS OFF 
GET CURRENT CHARACTER 

* SHIFT RIGHT 

* SHIFT RIGHT 

* SHIFT RIGHT 

* SHIFT RIGHT - NOW THE HIGH NIBBLE IS IN THE LOW NIBBLE 
KEEP ONLY THE COLOR INFO 

ACCB=0 FOR NO COLOR, =1 T0 8 OTHERWISE 
CONVERT ACCB TO FLOATING POINT 
SYNTAX CHECK FOR ) 



HOOK INTO RAM 

BRANCH IF NO ARGUMENT 

CALCULATE ARGUMENT, RETURN VALUE IN ACCB 

VALID ARGUMENT? 

IF ARGUMENT >8 , GO PRINT MICROSOFT 

SET FLAGS 

COLOR 

ACCB NOW CONTAINS 0-7 

EACH GRAPHIC BLOCK SEPARATED BY $10 FROM ONE ANOTHER 

ACCB CONTAINS ONE OF 8 OFFSETS 

BITS 0-3 SET FOR SOLID COLOR GRAPHIC BLOCK 

BIT 7 SET FOR GRAPHICS 

SKIP TWO BYTES 



BLANK 

GET ADDR OF START OF SCREEN BUFFER 

SAVE IT IN CURPOS 

FILL SCREEN WITH CONTENTS OF ACCB 

END OF SCREEN? 

NO 

CLEAR SCREEN 

* PRINT MICROSOFT 
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1336 


A93F 


BD 


B2 


6D 


1337 


A942 


BD 


B7 


0B 


1338 


A945 


5D 






1339 


A946 


26 


3C 




1340 


A948 


7E 


B4 


4A 


1341 










1342 










1343 


A94B 


8D 


F5 




1344 


A940 


D7 


8C 




1345 


A94F 


8D 


EE 




1346 


A951 


86 


04 




1347 


A953 


3D 






1348 


A954 


DD 


8D 




1349 


A956 


B6 


FF 


03 


1350 


A959 


8A 


01 




1351 


A95B 


B7 


FF 


03 


1352 


A95E 


0F 


08 




1353 


A960 


8D 


40 




1354 


A962 


8D 


12 




1355 


A964 


8D 


IF 




1356 


A966 


86 


FE 




1357 


A968 


8D 


ID 




1358 


A96A 


8D 


19 




1359 


A96C 


86 


02 




1360 


A96E 


8D 


17 




1361 


A970 


9E 


8D 




1362 










1363 


A972 


26 


F0 




1364 










1365 










1366 


A974 


4F 






1367 


A975 


8C 






1368 


A976 


86 


08 




1369 


A978 


A7 


E2 




1370 


A97A 


B6 


FF 


23 


1371 


A97D 


84 


F7 




1372 


A97F 


AA 


E0 




1373 


A981 


B7 


FF 


23 


1374 


A984 


39 






1375 


A985 


86 


7E 




1376 


A987 


B7 


FF 


20 


1377 


A98A 


96 


8C 




1378 


A98C 


4C 






1379 


A98D 


26 


FD 




1380 


A98F 


39 






1381 










1382 










1383 


A990 


IF 


89 




1384 


A992 


9D 


9F 




1385 


A994 


CI 


AA 




1386 


A996 


27 


DC 




1387 


A998 


C0 


88 




1388 


A99A 


BD 


A5 


C9 


1389 


A99D 


5C 






1390 


A99E 


8D 


02 




1391 


A9A0 


20 


D4 




1392 










1393 










1394 










1395 


A9A2 


CE 


FF 


01 


1396 


A9A5 


8D 


00 




1397 


A9A7 


A6 


C4 




1398 


A9A9 


84 


F7 




1399 


A9AB 


57 






1400 


A9AC 


24 


02 




1401 


A9AE 


8A 


08 




1402 


A9B0 


A7 


CI 




1403 


A9B2 


39 






1404 










1485 










1406 


A9B3 


B6 


FF 


03 


1407 


A9B6 


2A 


0D 




1408 


A9B8 


B6 


FF 


02 


1409 


A9BB 


BE 


00 


8D 


1410 


A9BE 


27 


05 




1411 


A9C0 


30 


IF 




1412 


A9C2 


BF 


00 


8D 


1413 


A9C5 


3B 






1414 










1415 










1416 


A9C6 


BD 


B7 


0E 


1417 


A9C9 


CI 


03 




1418 


A9CB 


10 


22 


0A 


1419 


A9CF 


5D 






1420 


A9D0 


26 


02 




1421 


A9D2 


8D 


0A 




1422 


A9D4 


8E 


01 


5A 


1423 


A9D7 


D6 


53 




1424 


A9D9 


E6 


85 





LA93F 


JSR 


LB26D 


LA942 


JSR 
TSTB 


LB70B 




BNE 


LA984 


LA948 


JHP 


LB44A 


* SOUND 






SOUND 


BSR 


LA942 




STB 


SNDTON 




BSR 


LA93F 




LDA 


#4 




MUL 






STD 


SNDDUR 




LDA 


PIA0+3 




ORA 


#1 




STA 


PIA0+3 




CLR 


ARYDIS 




BSR 


LA9A2 




BSR 


LA976 


LA964 


BSR 


LA985 




LDA 


#$FE 




BSR 


LA987 




BSR 


LA985 




LDA 


#2 




BSR 


LA987 




LDX 


SNDDUR 



SYNTAX CHECK FOR A COMMA 

EVALUATE EXPRESSION, RETURN VALUE IN ACCB 
SET FLAGS 

RETURN IF NON ZERO 
ILLEGAL FUNCTION CALL IF ZERO 



EVALUATE EXPRESSION (FREQUENCY) 

SAVE IT 

EVALUATE EXPRESSION (SOUND LENGTH) 

CONSTANT FACTOR 

EXPAND LENGTH EXPRESSION 

SAVE LENGTH OF SOUND 

GET CONTROL REGISTER OF PIAB, PORT B 

* ENABLE 60 HZ INTERRUPT (PIA0 IRQ) 

CLEAR THE ARRAY DISABLE FLAG - FOR NO APPARENT REASON 

CONNECT D/A SOUND INPUT TO OUTPUT OF SOUND MUX 

TURN ON AUDIO - ENABLE SOUND MUX 

STORE 2.5 VOLTS TO D/A AND WAIT 

DATA TO MAKE D/A OUT = 5 VOLTS 

STORE IT TO D/A AND HAIT 

STORE 2.5 VOLTS TO D/A AND HAIT 

DATA TO MAKE D/A OUT = VOLTS 

STORE IT TO D/A AND HAIT 

* IS SNDDUR = 0? - THE IRQ INTERRUPT SERVICING 

* ROUTINE HILL DECREMENT SNDDUR 
NOT DONE YET 



THESE ROUTINES HILL ENABLE/DISABLE THE ANALOG MUX 



LA976 


LDA 


#8 




STA 


,-s 




LDA 


PIA1+3 




ANDA 


#»F7 




ORA 


,s+ 




STA 


PIA1+3 


LA984 


RTS 




LA985 


LDA 


#$7E 


LA987 


STA 


DA 




LDA 


SNDTON 


LA98C 


INCA 






BNE 


LA98C 




RTS 




* AUDIO 






AUDIO 


TFR 


A,B 




JSR 


GETNCH 




CMPB 


#»AA 




BEQ 


LA974 




SUBB 


#$88 




JSR 


LA5C9 




INCB 






BSR 


LA9A2 




BRA 


LA976 



THIS ROUTINE HILL TRANSFER BIT OF ACCB 
THE ANALOG MULTIPLEXER AND BIT 1 OF ACCB 



LA9A2 


LDU 


#PIA0+1 




BSR 


LA9A7 


LA9A7 


LDA 


,u 




ANDA 


#$F7 




ASRB 






BCC 


LA9B0 




ORA 


#$08 


LA9B0 


STA 
RTS 


,U++ 


* IRQ SERVICE 




BIRQSV 


LDA 


PIA0+3 




BPL 


LA9C5 




LDA 


PIA0+2 




LDX 


>SNDDUR 




BEQ 


LA9C6 




LEAX 


-i,x 




STX 


>SNDDUR 


LA9C5 


RTI 




* JOYSTK 






JOYSTK 


JSR 


LB70E 




CMPB 


#3 




LBHI 


LB44A 




TSTB 






BNE 


LA9D4 




BSR 


GETJOY 


LA9D4 


LDX 


SPOTVAL 




LDB 


FPA0+3 



BIT 3 OF ACCA = 0, DISABLE ANALOG MUX 

SKIP THO BYTES 

BIT 3 OF ACCA = 1, ENABLE ANALOG MUX 

SAVE ACCA ON STACK 

GET CONTROL REGISTER OF PIA1, PORT B 

RESET BIT 3 

OR IN BIT 3 OF ACCA (SAVED ON STACK) 

SET/RESET CB2 OF U4 

DATA VALUE TO MAKE D/A OUTPUT = 2.5 VOLTS 
STORE IT IN D/A 
GET FREQUENCY 
INCREMENT IT 
LOOP UNTIL DONE 



SAVE ON/OFF TOKEN IN ACCB 

MOVE BASIC POINTER TO NEXT CHARACTER 

OFF TOKEN? 
YES - TURN OFF ANALOG MUX 

ON TOKEN 
SYNTAX ERROR IF NOT OFF OR ON 
NOH ACCB = 1 

ROUTE CASSETTE TO SOUND MULTIPLEXER 
ENABLE SOUND MULTIPLEXER 

TO SEL 1 OF 

TO SEL 2. 

POINT U TO PIA0 CONTROL REG 

PROGRAM 1ST CONTROL REGISTER 

GET PIA CONTROL REGISTER 

RESET CA2 (CB2) OUTPUT BIT 

SHIFT ACCB BIT TO CARRY FLAG 

BRANCH IF CARRY = ZERO 

FORCE BIT 3=1; SET CA2(CB2) 

PUT IT BACK IN THE PIA CONTROL REGISTER 



CHECK FOR 60HZ INTERRUPT 

RETURN IF 63.5 MICROSECOND INTERRUPT 

RESET PIA0, PORT B INTERRUPT FLAG 

GET INTERRUPT TIMER (SOUND COMMAND) 

RETURN IF TIMER = 

DECREMENT TIMER IF NOT = 

SAVE NEH TIMER VALUE 

RETURN FROM INTERRUPT 



EVALUATE JOYSTICK ARGUMENT 

THO JOYSTICKS MAXIMUM (HOR & VER FOR EACH) 

ILLEGAL FUNCTION CALL IF >3 
SET FLAGS 

GET NEH DATA ONLY IF JOYSTK(B) 
GET NEH DATA FOR ALL JOYSTICKS 
POINT X TO JOYSTICK DATA BUFFER 
HHICH JOYSTICK DID YOU HANT? 
PUT ITS DATA INTO ACCB 



COLOR BASIC UNRAVELLED II 



ORIGIN:SPECTRAL ASSOC 
REVISED:12/13/1999 WALTER K ZYDHEK 



1425 


A9DB 


7E 


B4 F3 


1426 








1427 








1428 








1429 








1430 








1431 








1432 








1433 


A9DE 


8D 


94 


1434 


A9E0 


8E 


01 5E 


1435 


A9E3 


C6 


03 


1436 


A9E5 


86 


0A 


1437 


A9E7 


ED 


E3 


1438 


A9E9 


8D 


B7 


1439 


A9EB 


cc 


40 80 


1440 








1441 








1442 








1443 


A9EE 


A7 


E2 


1444 


A9F0 


CA 


02 


1445 


A9F2 


F7 


FF 20 


1446 


A9F5 


ce 


02 


1447 


A9F7 


B6 


FF 00 


1448 


A9FA 


2B 


03 


1449 


A9FC 


E0 


E4 


1450 


A9FE 


ec 




1451 


A9FF 


EB 


E4 


1452 


AA01 


A6 


E0 


1453 


AA03 


44 




1454 


AA04 


81 


01 


1455 


AA06 


26 


E6 


1456 


AA08 


54 




1457 


AA09 


54 




1458 


AA0A 


El 


IF 


1459 


AA0C 


27 


04 


1460 


AA0E 


6A 


E4 


1461 


AA10 


26 


D9 


1462 








1463 








1464 








1465 


AA12 


E7 


82 


1466 


AA14 


EC 


El 


1467 


AA16 


5A 




1468 


AA17 


2A 


CC 


1469 


AA19 


39 




1470 








1471 








1472 








1473 








1474 


AA1A 


81 


3A 


1475 


AA1C 


24 


0A 


1476 


AA1E 


81 


20 


1477 


AA20 


26 


02 


1478 


AA22 


0E 


9F 


1479 


AA24 


80 


30 


1480 


AA26 


80 


D0 


1481 


AA28 


39 





JOYSTK DATA AT: 

$15A $15B 
LEFT LEFT 
VERT HORIZ 



** THIS 


IS A 6 


BIT SOFTWARE 


GETJOY 


BSR 


LA974 




LDX 


#P0TVAL+4 




LDB 


#3 


LA9E5 


LDA 


#10 




STD 


,--s 




BSR 


LA9A2 


LA9EB 


LDD 


#$4080 



STA 


,-s 


ORB 


#2 


STB 


DA 


EORB 


#2 


LDA 


PIA0 


BHI 


LA9FF 


SUBB 


,s 


FCB 


SKP2 


ADDB 


,s 


LDA 


,s+ 


LSRA 




CHPA 


#1 


BNE 


LA9EE 


LSRB 




LSRB 




CHPB 


-1,X 


BEQ 


LAA12 


DEC 


,s 


BNE 


LA9EB 



STB 


,-x 


LDD 


,s++ 


DECB 




BPL 


LA9E5 


RTS 





CONVERT ACCB INTO FLOATING POINT NUMBER 



>15C >15D 
RIGHT RIGHT 
VERT HORIZ 

A/D CONVERSION ROUTINE 

TURN OFF AUDIO 

POINT X TO JOYSTICK DATA BUFFER 

GET FOUR SETS OF DATA (4 JOYSTICKS) 

10 TRIES TO GET STABLE READING 

STORE JOYSTICK NUMBER AND TRY NUMBER ON THE STACK 

SET THE SELECT INPUTS ON ANALOG MULTIPLEXER 

ACCA IS A SHIFT COUNTER OF HOH MANY BITS TO CONVERT 

AND HI1L BE $40 (6 BITS) FOR THE COLOR 

COMPUTER. ACCB CONTAINS A VALUE EQUAL TO 1/2 

THE CURRENT TRIAL DIFFERENCE. INITIALLY =$80 (2.5 VOLTS). 

TEMP STORE SHIFT COUNTER ON STACK 

KEEP RS 232 SERIAL OUT MARKING 

STORE IN D/A CONVERTER 

PUT R5232 OUTPUT BIT BACK TO ZERO 

HIGH BIT IS FROM COMPARATOR 

BRANCH IF COMPARATOR OUTPUT IS HIGH 

SUBTRACT 1/2 THE CURRENT TRIAL DIFFERENCE 

SKIP NEXT TWO BYTES 

ADD 1/2 OF THE CURRENT TRIAL DIFFERENCE 

PULL SHIFT COUNTER OFF THE STACK 

SHIFT IT RIGHT ONCE 

HAVE ALL THE SHIFTS BEEN DONE? 

NO 

YES - THE DATA IS IN THE TOP 6 BYTES OF ACCB 

PUT IT INTO THE BOTTOM SIX 

IS THIS VALUE EQUAL TO THE LAST TRY? 

YES - GO SAVE THE VALUE 

NO-DECREMENT TRIES COUNTER 

BRANCH IF YOU HAVEN T TRIED 10 TIMES 

IF YOU FALL THROUGH HERE YOU HAVE TRIED TO GET THE SAME READING 

10 TIMES AND NEVER GOTTEN A MATCH. AS A RESULT YOU JUST FALL 

THROUGH AND USE THE LAST VALUE READ IN. 

SAVE THE DIGITIZED VALUE 

GET THE NUMBER OF THE JOYSTICK JUST DONE 

DECR JOYSTK NUMBER 

BRANCH IF THE LAST ONE DONE MASN T NUMBER 



* SET CARRY IF NUMERIC - RETURN WITH 

* ZERO FLAG SET IF ACCA = OR 3A(:) 

* OF BASIC LINE OR SUB LINE 
BROMHK 



CMPA 


#'9+1 


BHS 


LAA28 


CMPA 


#SPACE 


BNE 


LAA24 


JMP 


GETNCH 


SUBA 


#'0 


SUBA 


#-'0 


RTS 





IS THIS CHARACTER >=(ASCII 9)+l? 

BRANCH IF > 9; Z SET IF = COLON 

SPACE? 

NO - SET CARRY IF NUMERIC 

IF SPACE, GET NECT CHAR (IGNORE SPACES) 

* SET CARRY IF 

* CHARACTER > ASCII 



DISPATCH TABLE FOR SECONDARY FUNCTIONS 
TOKENS ARE PRECEEDED BY »FF 



1485 


AA29 


BC 


7A 


1486 


AA2B 


BC 


EE 


1487 


AA2D 


BC 


93 


1488 


AA2F 


01 


12 


1489 


AA31 


BF 


IF 


1490 


AA33 


BF 


78 


1491 


AA35 


B7 


50 


1492 


AA37 


B6 


81 


1493 


AA39 


B4 


FD 


1494 


AA3B 


B7 


16 


1495 


AA3D 


B6 


A0 


1496 


AA3F 


B6 


8C 


1497 


AA41 


A5 


CE 


1498 


AA43 


A9 


C6 


1499 


AA45 


B6 


AB 


1500 


AA47 


B6 


C8 


1501 


AA49 


B6 


CF 


1502 


AA4B 


A8 


F5 


1503 


AA4D 


A5 


64 


1504 


AA4F 


B4 


EE 


1505 








1506 








1507 








1508 








1509 








1510 








1511 








1512 








1513 









FDB 


SGN 


FDB 


INT 


FDB 


ABS 


FDB 


$0112 


FDB 


RND 


FDB 


SIN 


FDB 


PEEK 


FDB 


LEN 


FDB 


STR 


FDB 


VAL 


FDB 


ASC 


FDB 


CHR 


FDB 


EOF 


FDB 


JOYSTK 


FDB 


LEFT 


FDB 


RIGHT 


FDB 


MID 


FDB 


POINT 


FDB 


INKEY 


FDB 


MEM 



T 


OKEN # 


SGN 


80 


INT 


81 


ABS 


82 


USR 


83 


RND 


84 


SIN 


85 


PEEK 


86 


LEN 


87 


STR$ 


88 


VAL 


89 


ASC 


8A 


CHR$ 


8B 


EOF 


8C 


JOYSTK 


8D 


LEFT» 


8E 


RIGHT* 


8T 


MIDI 


90 


POINT 


91 


INKEY* 


92 


MEM 


93 



THIS TABLE CONTAINS PRECEDENCES AND DISPATCH ADDRESSES FOR ARITHMETIC 

AND LOGICAL OPERATORS - THE NEGATION OPERATORS DO NOT ACT ON TWO OPERANDS 

S0 THEY ARE NOT LISTED IN THIS TABLE. THEY ARE TREATED SEPARATELY IN THE 

EXPRESSION EVALUATION ROUTINE. THEY ARE: 

UNARY NEGATION (-), PRECEDENCE S7D AND LOGICAL NEGATION (NOT), PRECEDENCE »5A 

THE RELATIONAL OPERATORS < > = ARE ALSO NOT LISTED, PRECEDENCE $64. 

A PRECEDENCE VALUE OF ZERO INDICATES END OF EXPRESSION OR PARENTHESES 



COLOR BASIC UNRAVELLED II 
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1514 


AA51 


79 










1515 


AA52 


B9 


C5 








1516 


AA54 


79 










1517 


AA55 


B9 


BC 








1518 


AA57 


7B 










1519 


AA58 


BA 


cc 








1520 


AA5A 


7B 










1521 


AA5B 


BB 


91 








1522 


AA5D 


7F 










1523 


AA5E 


01 


ID 








1524 


AA60 


50 










1525 


AA61 


B2 


D5 








1526 


AA63 


46 










1527 


AA64 


B2 


D4 








1528 














1529 














1530 














1531 


AA66 


46 


4F 


D2 






1532 


AA69 


47 


CF 








1533 


AA6B 


52 


45 


CD 






1534 


AA6E 


A7 










1535 


AA6F 


45 


4C 


53 


C5 




1536 


AA73 


49 


C6 








1537 


AA75 


44 


41 


54 


CI 




1538 


AA79 


50 


52 


49 


4E 


D4 


1539 


AA7E 


4F 


CE 








1540 


AA80 


49 


4E 


50 


55 


D4 


1541 


AA85 


45 


4E 


C4 






1542 


AA88 


4E 


45 


58 


D4 




1543 


AA8C 


44 


49 


CD 






1544 


AA8F 


52 


45 


41 


C4 




1545 


AA93 


52 


55 


CE 






1546 


AA96 


52 


45 


53 


54 


4F 52 


1547 


AA9C 


C5 










1548 


AA9D 


52 


45 


54 


55 


52 CE 


1549 


AAA3 


53 


54 


4F 


D0 




1550 


AAA7 


50 


4F 


4B 


C5 




1551 


AAAB 


43 


4F 


4E 


D4 




1552 


AAAF 


4C 


49 


53 


D4 




1553 


AAB3 


43 


4C 


45 


41 


D2 


1554 


AAB8 


4E 


45 


D7 






1555 


AABB 


43 


4C 


4F 


41 


C4 


1556 


AAC0 


43 


53 


41 


56 


C5 


1557 


AAC5 


4F 


50 


45 


CE 




1558 


AAC9 


43 


4C 


4F 


53 


C5 


1559 


AACE 


4C 


4C 


49 


53 


D4 


1560 


AAD3 


53 


45 


D4 






1561 


AAD6 


52 


45 


53 


45 


D4 


1562 


AADB 


43 


4C 


D3 






1563 


AADE 


4D 


4F 


54 


4F 


D2 


1564 


AAE3 


53 


4F 


55 


4E 


C4 


1565 


AAE8 


41 


55 


44 


49 


CF 


1566 


AAED 


45 


58 


45 


C3 




1567 


AAF1 


53 


4B 


49 


50 


C6 


1568 


AAF6 


54 


41 


42 


A8 




1569 


AAFA 


54 


CF 








1570 


AAFC 


53 


55 


C2 






1571 


AAFF 


54 


48 


45 


CE 




1572 


AB03 


4E 


4F 


D4 






1573 


AB06 


53 


54 


45 


D0 




1574 


AB0A 


4F 


46 


C6 






1575 


AB0D 


AB 










1576 


AB0E 


AD 










1577 


AB0F 


AA 










1578 


AB10 


AF 










1579 


ABU 


DE 










1580 


AB12 


41 


4E 


C4 






1581 


AB15 


4F 


D2 








1582 


AB17 


BE 










1583 


AB18 


BD 










1584 


AB19 


BC 










1585 














1586 














1587 














1588 


AB1A 


53 


47 


CE 






1589 


AB1D 


49 


4E 


D4 






1590 


AB20 


41 


42 


D3 






1591 


AB23 


55 


53 


D2 






1592 


AB26 


52 


4E 


C4 






1593 


AB29 


53 


49 


CE 






1594 


AB2C 


50 


45 


45 


CB 




1595 


AB30 


4C 


45 


CE 






1596 


AB33 


53 


54 


52 


A4 




1597 


AB37 


56 


41 


CC 






1598 


AB3A 


41 


53 


C3 






1599 


AB3D 


43 


48 


52 


A4 




1600 


AB41 


45 


4F 


C6 






1601 


AB44 


4A 


4F 


59 


53 


54 CB 


1602 


AB4A 


4C 


45 


46 


54 


A4 



FCB 


$79 


FDB 


LB9C5 


FCB 


$79 


EDB 


LB9BC 


FCB 


$7B 


FDB 


$BACC 


FCB 


$7B 


FDB 


$BB91 


FCB 


$7F 


FDB 


$011D 


FCB 


$50 


FDB 


$B2D5 


FCB 


$46 


FDB 


LB2D4 



THIS IS THE RESERVED HORD TABLE 



FCC 


'FO' ,$80+'R' 


FCC 


'G' ,$80+'O' 


FCC 


'RE' ,$80+'H' 


FCB 


" + $80 


FCC 


'ELS' ,$80+'E' 


FCC 


T ,$80+'F' 


FCC 


'DAT' ,$80+'A' 


FCC 


'PRIN' ,$80+'T' 


FCC 


'0' ,$80+'N' 


FCC 


'INPU' ,$8B+'T' 


FCC 


'EN' ,$80+'D' 


FCC 


'NEX' ,$80+'T' 


FCC 


'DI' ,$80+'H' 


FCC 


'REA' ,$80+'D' 


FCC 


'RU' ,$80+'N' 


FCC 


'RESTOR' ,$80+'E 


FCC 


'RETUR' ,$80+'N' 


FCC 


'STO' ,$80+'P' 


FCC 


'POK' ,$80+'E' 


FCC 


'CON' ,$80+'T' 


FCC 


'LIS' ,$80+'T' 


FCC 


'CLEA' ,$80+'R' 


FCC 


'NE' ,$80+'U' 


FCC 


'CLOA' ,$80+'D' 


FCC 


'CSAV ,$80+'E' 


FCC 


'OPE' ,$80+'N' 


FCC 


'CLOS' ,$80+'E' 


FCC 


'LLIS' ,$80+'T' 


FCC 


'SE' ,$80+'T' 


FCC 


'RESE' ,$80+'T' 


FCC 


'CL' ,$80+'S' 


FCC 


'MOTO' ,$80+'R' 


FCC 


'SOUN' ,$80+'D' 


FCC 


'AUDI' ,$80+'O' 


FCC 


'EXE' ,$80+'C 


FCC 


'SKIP' ,$80+'F' 


FCC 


'TAB' ,$80+'( ' 


FCC 


'T' ,$80+'O' 


FCC 


'SU' ,$80+'B' 


FCC 


'THE' ,$80+'N' 


FCC 


'NO' ,$80+'T' 


FCC 


'STE' ,$80+'P' 


FCC 


'OF' ,$80+'F' 


FCC 


'+' + $80 



FCC 
FCC 



'AN' ,$80+'D' 
'0' ,$80+'R' 



EXPONENTIATION 

AND 

OR 



81 
82 
83 



91 
92 
93 



9B 
9C 



A2 
A3 

A4 



A8 
A9 
AA 
AB 
AC 
AD 
AE 
AF 
B0 
Bl 
B2 
B3 



TOKENS FOR THE SECONDARY FUNCTIONS ARE PRECEEDED BY »FF 



81 
82 
83 

84 
86 



FCC 


'SG' 


$80+' N' 


FCC 


'IN' 


$80+' T' 


FCC 


'AB' 


$80+' S' 


FCC 


'US' 


$80+' R' 


FCC 


'RN' 


$80+' D' 


FCC 


, SI , 


$80+' N' 


FCC 


'PEE 


,$80+'K 


FCC 


'LE' 


$80+' N' 


FCC 


'STR 


,$80+'$ 


FCC 


'VA' 


$80+' L' 


FCC 


'AS' 


$80+' C 


FCC 


'CHR 


,$80+'$ 


FCC 


'EO' 


$80+' F' 


FCC 


'JOY 


T' ,$80+ 


FCC 


'LEF 


' ,$80+' 



89 
8A 



COLOR BASIC UNRAVELLED II 



ORIGIN:SPECTRAL ASSOC 
REVISED:12/13/1999 WALTER K ZYDHEK 



1603 


AB4F 


52 


49 47 48 54 


A4 


1604 


AB55 


4D 


49 44 A4 




1605 


AB59 


50 


4F 49 4E D4 




1606 


AB5E 


49 


4E 4B 45 59 


A4 


1607 


AB64 


4D 


45 CD 




1608 








* 


1609 








* 


1610 


AB67 


AO 


47 


LA 


1611 


AB69 


AE 


86 




1612 


AB6B 


AE 


E3 




1613 


AB6D 


AE 


E3 




1614 


AB6F 


AE 


E3 




1615 


AB71 


AF 


14 




1616 


AB73 


AE 


E0 




1617 


AB75 


B8 


F7 




1618 


AB77 


AF 


42 




1619 


AB79 


AF 


F5 




1620 


AB7B 


AE 


02 




1621 


AB7D 


B0 


F8 




1622 


AB7F 


B3 


4E 




1623 


AB81 


B0 


46 




1624 


AB83 


AE 


75 




1625 


AB85 


AD 


E4 




1626 


AB87 


AE 


C0 




1627 


AB89 


AE 


09 




1628 


AB8B 


B7 


57 




1629 


AB8D 


AE 


30 




1630 


AB8F 


B7 


64 




1631 


AB91 


AE 


41 




1632 


AB93 


AO 


17 




1633 


AB95 


A4 


98 




1634 


AB97 


A4 


4C 




1635 


AB99 


A5 


F6 




1636 


AB9B 


A4 


16 




1637 


AB9D 


B7 


5E 




1638 


AB9F 


A8 


80 




1639 


ABA1 


A8 


Bl 




1640 


ABA3 


A9 


10 




1641 


ABA5 


A7 


BD 




1642 


ABA7 


A9 


4B 




1643 


ABA9 


A9 


90 




1644 


ABAB 


A5 


3E 




1645 


ABAD 


A5 


EC 




1646 








* 


1647 








* 


1648 


ABAF 


4E 


46 


LA 


1649 


ABB1 


53 


4E 




1650 


ABB3 


52 


47 




1651 


ABB5 


4F 


44 




1652 


ABB7 


46 


43 




1653 


ABB9 


4F 


56 




1654 


ABBB 


4F 


4D 




1655 


ABBD 


55 


4C 




1656 


ABBF 


42 


53 




1657 


ABC1 


44 


44 




1658 


ABC3 


2F 


50 




1659 


ABC5 


49 


44 




1660 


ABC7 


54 


4D 




1661 


ABC9 


4F 


53 




1662 


ABCB 


4C 


53 




1663 


ABCD 


53 


54 




1664 


ABCF 


43 


4E 




1665 


ABD1 


46 


44 




1666 


ABD3 


41 


4F 




1667 


ABD5 


44 


4E 




1668 


ABD7 


49 


4F 




1669 


ABD9 


46 


4D 




1670 


ABDB 


4E 


4F 




1671 


ABDD 


49 


45 




1672 


ABDF 


44 


53 




1673 










1674 


ABE1 


20 


45 52 52 4F 


52 LA 


1675 


ABE7 


00 






1676 


ABE8 


20 


49 4E 20 


LA 


1677 


ABEC 


00 






1678 


ABED 


0D 




LA 


1679 


ABEE 


4F 


4B 


LA 


1680 


ABF0 


0D 


00 




1681 


ABF2 


0D 




LA 


1682 


ABF3 


42 


52 45 41 4B 




1683 


ABF8 


00 






1684 










1685 










1686 










1687 








* 


1688 








* 


1689 










1690 


ABF9 


30 


64 


LA 


1691 








* 



FCC 


'RIGHT' ,$80+'$ 


FCC 


'MID' ,$80+'$' 


FCC 


' POIN ' ,$80+'T' 


FCC 


'INKEY' ,$80+'$ 


FCC 


'ME' ,$80+'M' 


* DISPATCH TABLE 


FOR COMMANDS 


LAB67 FDB 


FOR 


FDB 


GO 


FDB 


REM 


FDB 


REM 


FDB 


REM 


FDB 


IF 


FDB 


DATA 


FDB 


PRINT 


FDB 


ON 


FDB 


INPOT 


FDB 


END 


FDB 


NEXT 


FDB 


DIM 


FDB 


READ 


FDB 


RUN 


FDB 


RESTOR 


FDB 


RETORN 


FDB 


STOP 


FDB 


POKE 


FDB 


CONT 


FDB 


LIST 


FDB 


CLEAR 


FDB 


NEW 


FDB 


CLOAD 


FDB 


CSAVE 


FDB 


OPEN 


FDB 


CLOSE 


FDB 


LLIST 


FDB 


SET 


FDB 


RESET 


FDB 


CLS 


FDB 


MOTOR 


FDB 


SOUND 


FDB 


AUDIO 


FDB 


EXEC 


FDB 


SKIPF 


* ERROR MESSAGES 


AND THEIR NUMB 


LABAF FCC 


'NF' 


FCC 


■sir 


FCC 


'RG' 


FCC 


'OD' 


FCC 


'FC 


FCC 


'OV 


FCC 


'OM' 


FCC 


'UL' 


FCC 


'BS' 


FCC 


'DD' 


FCC 


V0' 


FCC 


'ID' 


FCC 


'TM' 


FCC 


'OS' 


FCC 


'LS' 


FCC 


'ST' 


FCC 


'CN' 


FCC 


'FD' 


FCC 


'AO' 


FCC 


DN 


FCC 


'10' 


FCC 


'FM' 


FCC 


'NO' 


FCC 


'IE' 


FCC 


'DS' 



91 




92 




93 




TOKEN # 


FOR 


80 


GO 


81 


REM 


82 


REM 


83 


ELSE 


84 


IF 


85 


DATA 


86 


PRINT 


87 


ON 


88 


INPUT 


89 


END 


8A 


NEXT 


8B 


DIM 


8C 


READ 


8D 


RUN 


8E 


RESTORE 


8F 


RETURN 


90 


STOP 


91 


POKE 


92 


C0NTINUE93 


LIST 


94 


CLEAR 


95 


NEW 


96 


CLOAD 


97 


CSAVE 


98 


OPEN 


99 


CLOSE 


9A 


LLIST 


9B 


SET 


9C 


RESET 


9D 


CLS 


9E 


MOTOR 


9F 


SOUND 


A0 


AUDIO 


Al 


EXEC 


A2 


SKIPF 


A3 



NEXT WITHOUT FOR 

1 SYNTAX ERROR 

2 RETURN WITHOUT GOSUB 

3 OUT OF DATA 

4 ILLEGAL FUNCTION CALL 

5 OVERFLOW 

6 OUT OF MEMORY 

7 UNDEFINED LINE NUMBER 

8 BAD SUBSCRIPT 

9 REDIMENSIONED ARRAY 

10 DIVISION BY ZERO 

11 ILLEGAL DIRECT STATEMENT 

12 TYPE MISMATCH 

13 OUT OF STRING SPACE 

14 STRING TOO LONG 

15 STRING FORMULA TOO COMPLEX 

16 CAN'T CONTINUE 

17 BAD FILE DATA 

18 FILE ALREADY OPEN 

19 DEVICE NUMBER ERROR 

20 I/O ERROR 

21 BAD FILE MODE 

22 FILE NOT OPEN 

23 INPUT PAST END OF FILE 

24 DIRECT STATEMENT IN FILE 



BED 
BEE 



FCB $00 
SEARCH THE STACK FOR GOSUB/RETURN OR FOR/NEXT DATA. 
THE FOR/NEXT INDEX VARIABLE DESCRIPTOR ADDRESS BEING 
SOUGHT IS STORED IN VARDES. EACH BLOCK OF FOR/NEXT DATA IS 18 
BYTES WITH A $80 LEADER BYTE AND THE GOSUB/RETURN DATA IS 5 BYTES 
WITH AN $A6 LEADER BYTE. THE FIRST NON "FOR/NEXT" DATA 
IS CONSIDERED GOSUB/RETURN 

BF9 LEAX 4,S POINT X TO 3RD ADDRESS ON STACK - IGNORE THE 

FIRST TWO RETURN ADDRESSES ON THE STACK 



COLOR BASIC UNRAVELLED II 



ORIGIN:SPECTRAL ASSOC 
REVISED:12/13/1999 WALTER K ZYDHEK 



1692 


ABFB 


C6 


12 




1693 


ABFD 


9F 


0F 




1694 


ABFF 


A6 


84 




1695 


AC01 


80 


80 




1696 


AC03 


26 


15 




1697 


AC05 


AE 


01 




1698 


AC07 


9F 


11 




1699 


AC09 


9E 


3B 




1700 


AC0B 


27 


09 




1701 










1702 










1703 


AC0D 


9C 


11 




1704 










1705 


AC0F 


27 


09 




1706 


AC11 


9E 


0F 




1707 


AC13 


3A 






1708 


AC14 


20 


E5 




1709 


AC16 


9E 


11 




1710 


AC18 


9F 


3B 




1711 


AC1A 


9E 


0F 




1712 


AC1C 


4D 






1713 


ACID 


39 






1714 










1715 










1716 


AC1E 


8D 


17 




1717 










1718 










1719 










1720 


AC20 


DE 


41 




1721 


AC22 


33 


41 




1722 


AC24 


9E 


43 




1723 


AC26 


30 


01 




1724 


AC28 


A6 


82 




1725 


AC2A 


36 


02 




1726 


AC2C 


9C 


47 




1727 


AC2E 


26 


F8 




1728 


AC30 


DF 


45 




1729 


AC32 


39 






1730 










1731 










1732 


AC33 


4F 






1733 


AC34 


58 






1734 


AC35 


D3 


IF 




1735 


AC37 


C3 


00 


3A 


1736 


AC3A 


25 


08 




1737 


AC3C 


10 


DF 


17 


1738 


AC3F 


10 


93 


17 


1739 


AC42 


25 


EE 




1740 


AC44 


C6 


0C 




1741 










1742 










1743 


AC46 


BD 


01 


8E 


1744 


AC49 


BD 


01 


91 


1745 


AC4C 


BD 


A7 


E9 


1746 


AC4F 


BD 


A9 


74 


1747 


AC52 


BD 


AD 


33 


1748 


AC55 


0F 


6F 




1749 


AC57 


BD 


B9 


5C 


1750 


AC5A 


BD 


B9 


AF 


1751 


AC5D 


8E 


AB 


AF 


1752 


AC60 


3A 






1753 


AC61 


8D 


3D 




1754 


AC63 


8D 


3B 




1755 


AC65 


8E 


AB 


E0 


1756 


AC68 


BD 


B9 


9C 


1757 


AC6B 


96 


68 




1758 


AC6D 


4C 






1759 


AC6E 


27 


03 




1760 


AC70 


BD 


BD 


C5 


1761 










1762 










1763 


AC73 


BD 


39 


5C 


1764 


AC76 


8E 


AB 


ED 


1765 


AC79 


BD 


B9 


9C 


1766 


AC7C 


BD 


A3 


90 


1767 


AC7F 


CE 


FF 


FF 


1768 


AC82 


DF 


68 




1769 


AC84 


25 


F6 




1770 


AC86 


0D 


70 




1771 


AC88 


10 


26 


F8 33 


1772 


AC8C 


9F 


A6 




1773 










1774 










1775 


AC8E 


9D 


9F 




1776 


AC90 


27 


EA 




1777 


AC92 


25 


11 




1778 










1779 











LDB 


#18 


STX 


TEMPTR 


LDA 


,x 


SUBA 


#$80 


BNE 


LAC1A 


LDX 


1,X 


STX 


TMPTR1 


LDX 


VARDES 


BEQ 


LAC16 


CHPX 


TMPTR1 


BEQ 


LAC1A 


LDX 


TEMPTR 


ABX 




BRA 


LABFB 


LDX 


TMPTR1 


STX 


VARDES 


LDX 


TEMPTR 



LAC1A 

TSTA 
RTS 

* CHECK FOR MEMORY SPACE FOR NEW TOP OF 

* ARRAYS AND MOVE ARRAYS TO NEW LOCATION 
LAC1E BSR LAC37 

* MOVE BYTES FROM V43(X) TO V4HU) UNTIL 

* SAVE FINAL VALUE OF U IN V45 



LDU 

LEAU 

LDX 

LEAX 

LDA 

PSHU 

CMPX 

BNE 

STU 

RTS 



V41 

i,u 

V43 



V47 

LAC28 

V45 



18 BYTES SAVED ON STACK FOR EACH FOR LOOP 
SAVE POINTER 
GET 1ST BYTE 

* CHECK FOR TYPE OF STACK JUMP FOUND 

* BRANCH IF NOT FOR/NEXT 

= GET INDEX VARIABLE DESCRIPTOR 

= POINTER AND SAVE IT IN TMPTR1 

GET INDEX VARIABLE BEING SEARCHED FOR 

BRANCH IF DEFAULT INDEX VARIABLE - USE THE 

FIRST FOR/NEXT DATA FOUND ON STACK 

IF NO INDEX VARIABLE AFTER NEXT 

DOES THE STACK INDEX MATCH THE ONE 

BEING SEARCHED FOR? 

YES 

* RESTORE INITIAL POINTER, ADD 

* 18 TO IT AND LOOK FOR 

* NEXT BLOCK OF DATA 

= GET 1ST INDEX VARIABLE FOUND AND 
= SAVE AS NEXT INDEX 
POINT X TO START OF FOR/NEXT DATA 
SET ZERO FLAG IF FOR/NEXT DATA 



ACCD = NEW BOTTOM OF FREE RAM - IS THERE 
ROOM FOR THE STACK? 
(X) = V47 AND 

POINT U TO DESTINATION ADDRESS (V41) 

ADD ONE TO U - COMPENSATE FOR FIRST PSHU 

POINT X TO SOURCE ADDRESS (V43) 

ADD ONE - COMPENSATE FOR FIRST LDA ,X 

GRAB A BYTE FROM SOURCE 

MOVE IT TO DESTINATION 

DONE? 

NO - KEEP MOVING BYTES 

SAVE FINAL DESTINATION ADDRESS 



CHECK TO SEE IF THERE IS ROOM TO STORE 2*ACCB 
BYTES IN FREE RAM - OM ERROR IF NOT 



CLRA 

ASLB 

ADDD 

ADDD 

BCS 

STS 

CMPD 



ARYEND 

#STKBUF 

LAC44 

BOTSTK 

BOTSTK 

LAC32 

#6*2 



ERROR SERVICING ROUTINE 



JSR 


RVEC16 


JSR 


RVEC17 


JSR 


LA7E9 


JSR 


LA974 


JSR 


LAD33 


CLR 


DEVNUM 


JSR 


LB95C 


JSR 


LB9AF 


LDX 


#LABAF 


ABX 




BSR 


LACAB 


BSR 


LACA0 


LDX 


#LABE1-1 


JSR 


LB99C 


LDA 


CURLIN 


INCA 




BEO 


LAC73 


JSR 


LBDC5 


THE MAIN LOOP 


JSR 


LB95C 


LDX 


#LABE1-1 


JSR 


LB99C 


JSR 


LA390 


LDU 


#FFFF 


STU 


CURLIN 


BCS 


LAC7C 


TST 


CINBFL 


LBNE 


LA4BF 


STX 


CHARAD 


JSR 


GETNCH 


BEQ 


LAC7C 


BCS 


LACA5 



AC94 C6 30 



* ACCD CONTAINS NUMBER OF EXTRA 

* BYTES TO PUT ON STACK 

END OF PROGRAM AND VARIABLES 

ADD STACK BUFFER - ROOM FOR STACK? 

BRANCH IF GREATER THAN JFFFF 

CURRENT NEW BOTTOM OF STACK STACK POINTER 

ARE WE GOING TO BE BELOW STACK? 

YES - NO ERROR 

OUT OF MEMORY ERROR 



HOOK INTO RAM 

HOOK INTO RAM 

TURN OFF CASSETTE 

DISABLE ANA MUX 

RESET STACK, STRING STACK, CONTINUE POINTER 

SET DEVICE NUMBER TO SCREEN 

SEND A CR TO SCREEN 

SEND A ? TO SCREEN 

POINT TO ERROR TABLE 

ADD MESSAGE NUMBER OFFSET 

* GET TWO CHARACTERS FROM X AND 

* SEND TO CONSOLE OUT (SCREEN) 
POINT TO "ERROR" MESSAGE 
PRINT MESSAGE POINTED TO BY X 
GET CURRENT LINE NUMBER (CURL IN) 
TEST FOR DIRECT MODE 

BRANCH IF DIRECT MODE 
PRINT IN **** 



MOVE CURSOR TO START OF LINE 
POINT X TO OK , CR MESSAGE 
PRINT OK , CR 
GO GET AN INPUT LINE 

THE LINE NUMBER FOR DIRECT MODE IS $FFFF 
SAVE IT IN CURLIN 

BRANCH IF LINE INPUT TERMINATED BY BREAK 
CHECK CONSOLE INPUT BUFFER STATUS 
BRANCH IF BUFFER EMPTY - CLOSE FILE IF EMPTY 
SAVE (X) AS CURRENT INPUT POINTER - THIS WILL 
ENABLE THE LIVE KEYBOARD (DIRECT) MODE. THE 
LINE JUST ENTERED WILL BE INTERPRETED 
GET NEXT CHARACTER FROM BASIC 
NO LINE INPUT - GET ANOTHER LINE 

BRANCH IF NUMERIC - THERE WAS A LINE NUMBER BEFORE 
THE STATEMENT ENTERED, SO THIS STATEMENT 
WILL BE MERGED INTO THE BASIC PROGRAM 
DIRECT STATEMENT IN FILE ERROR 
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1781 


AC96 


0D 


6F 






TST 


DEVNDM 


1782 


AC98 


26 


AC 






BNE 


LAC46 


1783 


AC9A 


BD 


B8 


21 




JSR 


LB821 


1784 


AC90 


7E 


AD 


C0 




JHP 


LADC0 


1785 










* 






1786 


ACAB 


A6 


80 




LACA0 


LDA 


,x+ 


1787 


ACA2 


7E 


B9 


Bl 




JMP 


LB9B1 


1788 










* TAKE A 


LINE FROM THE LINE INPDT BDFFER 


1789 










* AND INSERT IT 


INTO THE BASIC PROGRAM 


1790 


ACA5 


BD 


AF 


67 


LACA5 


JSR 


LAF67 


1791 


ACA8 


9E 


2B 






LDX 


BINVAL 


1792 


ACAA 


BF 


02 


DA 




STX 


LINHDR 


1793 


ACAD 


BD 


B8 


21 




JSR 


LB821 


1794 


ACB0 


D7 


03 






STB 


TMPLOC 


1795 


ACB2 


8D 


4D 






BSR 


LADB1 


1796 


ACB4 


25 


12 






BCS 


LACC8 


1797 


ACB6 


DC 


47 






LDD 


V47 


1798 


ACB8 


A3 


84 






SUBD 


,x 


1799 


ACBA 


D3 


IB 






ADDD 


VARTAB 


1800 


ACBC 


DD 


IB 






STD 


VARTAB 


1801 


ACBE 


EE 


84 






LDD 


,x 


1802 










* DELETE 


OLD LINE FROM BASIC PROGRAM 


1803 


ACC0 


37 


02 




LACCB 


PDLD 


A 


1804 


ACC2 


A7 


80 






STA 


,x+ 


1805 


ACC4 


9C 


IB 






CMPX 


VARTAB 


1806 


ACC6 


26 


F8 






BNE 


LACCB 


1807 


ACC8 


B6 


02 


DC 


LACC8 


LDA 


LINBDF 


1808 


ACCB 


27 


1C 






BEQ 


LACE9 


1809 


ACCD 


DC 


IB 






LDD 


VARTAB 


1810 


ACCF 


DD 


43 






STD 


V43 


1811 


ACD1 


DB 


03 






ADDB 


TMPLOC 


1812 


ACD3 


89 


00 






ADCA 


#0 


1813 


ACD5 


DD 


41 






STD 


V41 


1814 


ACD7 


BD 


AC 


IE 




JSR 


LAC IE 


1815 










* 






1816 


ACDA 


CE 


02 


D8 




LDU 


#LINHDR-2 


1817 


ACDD 


37 


02 




LACDD 


PULU 


A 


1818 


ACDF 


A7 


80 






STA 


,x+ 


1819 


ACE1 


9C 


45 






CMPX 


V45 


1820 


ACE3 


26 


F8 






BNE 


LACDD 


1821 


ACE5 


9E 


41 






LDX 


V41 


1822 


ACE7 


9F 


IB 






STX 


VARTAB 


1823 


ACE9 


8D 


36 




LACE9 


BSR 


LAD21 


1824 


ACEB 


8D 


02 






BSR 


LACEF 


1825 


ACEO 


20 


8D 






BRA 


LAC7C 


1826 










* COMPDTE THE START OF NEXT LINE ADDRESSES 


1827 


ACEF 


9E 


19 




LACEF 


LDX 


TXTTAB 


1828 


ACF1 


EC 


84 




LACF1 


LDD 


,x 


1829 


ACF3 


27 


21 






BEQ 


LAD 16 


1830 


ACF5 


33 


04 






LEAD 


4,X 


1831 


ACF7 


A6 


C0 




LACF7 


LDA 


,u+ 


1832 


ACF9 


26 


FC 






BNE 


LACF7 


1833 


ACFB 


EF 


84 






STU 


,x 


1834 


ACFD 


AE 


84 






LDX 


,x 


1835 


ACFF 


20 


F0 






BRA 


LACF1 


1836 










* 






1837 










* FIND A 


LINE NDMBER IN THE BASIC PROGRAM 


1838 










* RETDRN 


WITH CARRY SET IF NO MATCH FODND 


1839 


AD01 


DC 


2B 




LAD01 


LDD 


BINVAL 


1840 


AD03 


9E 


19 






LDX 


TXTTAB 


1841 


AD05 


EE 


84 




LAD05 


LDU 


,x 


1842 


AD07 


27 


09 






BEQ 


LAD 12 


1843 


AD09 


10 


A3 


02 




CMPD 


2,X 


1844 


AD0C 


23 


06 






BLS 


LAD14 


1845 


AD0E 


AE 


84 






LDX 


,x 


1846 


AD10 


20 


F3 






BRA 


LAD05 


1847 


AD12 


1A 


01 




LAD 12 


ORCC 


#1 


1848 


AD14 


9F 


47 




LAD14 


STX 


V47 


1849 
















1850 


AD16 


39 






LAD 16 


RTS 




1851 
















1852 










* NEK 






1853 


AD17 


26 


FB 




NEW 


BNE 


LAD14 


1854 


AD19 


9E 


19 




LAD 19 


LDX 


TXTTAB 


1855 


AD1B 


6F 


80 






CLR 


,x+ 


1856 


AD1D 


6F 


80 






CLR 


,x+ 


1857 


AD1F 


9F 


IB 






STX 


VARTAB 


1858 


AD21 


9E 


19 




LAD21 


LDX 


TXTTAB 


1859 


A023 


BD 


AE 


BB 




JSR 


LAEBB 


1860 










* ERASE ALL VARIABLES 


1861 


AD26 


9E 


27 




LAD26 


LDX 


MEMSIZ 


1862 


AD28 


9F 


23 






STX 


STRTAB 


1863 


AD2A 


BD 


AD 


E4 




JSR 


RESTOR 


1864 


AD2D 


9E 


IB 






LDX 


VARTAB 


1865 


AD2F 


9F 


ID 






STX 


ARYTAB 


1866 


AD31 


9F 


IF 






STX 


ARYEND 


1867 


AD33 


8E 


01 


A9 


LAD33 


LDX 


#STRSTK 


1868 


AD36 


9F 


0B 






STX 


TEMPPT 


1869 


AD38 


AE 


E4 






LDX 


,S 



* CHECK DEVICE NDMBER AND 

* ISSUE DS ERROR IF DEVNUM <> 
GO CRUNCH LINE 

GO EXECUTE THE STATEMENT (LIVE KEYBOARD) 

GET A CHARACTER 
SEND TO CONSOLE ODT 



CONVERT LINE NUMBER TO BINARY 

GET CONVERTED LINE NUMBER 

STORE IT IN LINE INPUT HEADER 

GO CRUNCH THE LINE 

SAVE LINE LENGTH 

FIND OUT UHERE TO INSERT LINE 

BRANCH IF LINE NDMBER DOES NOT ALREADY EXIST 

GET ABSOLUTE ADDRESS OF LINE NUMBER 

SUBTRACT ADDRESS OF NEXT LINE NDMBER 

* ADD TO CURRENT END OF PROGRAM - THIS HILL REMOVE 

* THE LENGTH OF THIS LINE NDMBER FROM THE PROGRAM 
POINT U TO ADDRESS OF NEXT LINE NDMBER 

GET A BYTE FROM WHAT S LEFT OF PROGRAM 
MOVE IT DOWN 

COMPARE TO END OF BASIC PROGRAM 
BRANCH IF NOT AT END 

* CHECK TO SEE IF THERE IS A LINE IN 

* THE BUFFER AND BRANCH IF NONE 
= SAVE CURRENT END OF 

= PROGRAM IN V43 

* ADD LENGTH OF CRUNCHED LINE, 

* PROPOGATE CARRY AND SAVE NEW END 

* OF PROGRAM IN V41 

= MAKE SURE THERE S ENOUGH RAM FOR THIS 
= LINE & MAKE A HOLE IN BASIC FOR NEW LINE 
POINT U TO LINE TO BE INSERTED 
GET A BYTE FROM NEW LINE 
INSERT IT IN PROGRAM 

* COMPARE TO ADDRESS OF END OF INSERTED 

* LINE AND BRANCH IF NOT DONE 
= GET AND SAVE 

= END OF PROGRAM 

RESET INPUT POINTER, CLEAR VARIABLES, INITIALIZE 

ADJUST START OF NEXT LINE ADDRESSES 

REENTER BASIC S INPUT LOOP 

FOR THE BASIC PROGRAM 

POINT X TO START OF PROGRAM 

GET ADDRESS OF NEXT LINE 

RETURN IF END OF PROGRAM 

POINT U TO START OF BASIC TEXT IN LINE 

* SKIP THROUGH THE LINE UNTIL A 

* ZERO (END OF LINE) IS FOUND 

SAVE THE NEW START OF NEXT LINE ADDRESS 
POINT X TO START OF NEXT LINE 
KEEP GOING 



GET THE LINE NDMBER TO FIND 

BEGINNING OF PROGRAM 

GET ADDRESS OF NEXT LINE NUMBER 

BRANCH IF END OF PROG 

IS IT A MATCH? 

CARRY SET IF LOWER; CARRY CLEAR IF MATCH 

X = ADDRESS OF NEXT LINE 

KEEP LOOPING FOR LINE NDMBER 

SET CARRY FLAG 

SAVE MATCH LINE NDMBER OR NUMBER OF LINE JUST AFTER 

WHERE IT SHOULD HAVE BEEN 



BRANCH IF ARGUMENT GIVEN 
GET START OF BASIC 

* PUT 2 ZERO BYTES THERE - ERASE 

* THE BASIC PROGRAM 

AND THE NEXT ADDRESS IS NOW THE END OF PROGRAM 

GET START OF BASIC 

PUT INPUT POINTER ONE BEFORE START OF BASIC 

* RESET START OF STRING VARIABLES 

* TO TOP OF STRING SPACE 

RESET DATA POINTER TO START OF BASIC 

* GET START OF VARIABLES AND USE IT 

* TO RESET START OF ARRAYS 
RESET END OF ARRAYS 

* RESET STRING STACK POINTER TO 

* BOTTOM OF STRING STACK 
GET RETDRN ADDRESS OFF STACK 



COLOR BASIC UNRAVELLED II 



ORIGIN:SPECTRAL ASSOC 
REVISED:12/13/1999 WALTER K ZYDHEK 



1870 


AD3A 


10 


DE 21 


1871 


AD3D 


6F 


E2 


1872 








1873 


AD3F 


0F 


2D 


1874 


AD41 


0F 


2E 


1875 


A043 


0F 


08 


1876 


A045 


6E 


84 


1877 









LDS 


FRETOP 


CLR 


,-s 


CLR 


OLDPTR 


CLR 


OLDPTR+1 


CLR 


ARYDIS 


JHP 


,x 



RESTORE STACK POINTER 

PUT A ZERO BYTE ON STACK - TO CLEAR ANY RETURN OF 

FOR/NEXT DATA FROM THE STACK 

RESET CONT ADDRESS SO YOU 

CAN T CONTINUE 
CLEAR THE ARRAY DISABLE FLAG 

RETURN TO CALLING ROUTINE - THIS IS NECESSARY 
SINCE THE STACK HAS RESET 



1881 










* 


THE FOR COMMAND HILL STORE 18 1 


1882 










* 


EACH 


FOR-NEXT 


LOOP WHICH IS BE 


1883 










* 


BYTES 


ARE DEFINED AS FOLLOWS: 1 


1884 










* 


1,2 


=INDEX VARIABLE DESCRIPTO! 


1885 










* 


8 


=STEP DIRECTION: $FF IF N 


1886 










* 


9-13 


=FP VALUE OF TO PARAMET! 


1887 










* 


14,15 


=CURRENT 


LINE NUMBER; 16, 


1888 










* 




OF THE 1 


_INE CONTAINING Tl 


1889 


AD47 


86 


80 




FOR 


LDA 


#$80 


1890 


AD49 


97 


08 








STA 


ARYDIS 


1891 


AD4B 


BD 


AF 


89 






JSR 


LET 


1892 


AD4E 


BD 


AB 


F9 






JSR 


LABF9 


1893 


AD51 


32 


62 








LEAS 


2,S 


1894 


AD53 


26 


04 








BNE 


LAD59 


1895 


AD55 


9E 


0F 








LDX 


TEMPTR 


1896 


AD57 


32 


85 








LEAS 


B,X 


1897 










* 


MATCHED FOR/NEXT DATA SO THE 


1898 










* 


OVERLAY THE OLD DATA. THIS WIL 


1899 










* 


ALL OF THE RETURN AND FOR/N 


1900 










* 


THIS 


POINT ON 


THE STACK 


1901 


AD59 


C6 


09 




LAD59 


LDB 


#$09 


1902 


AD5B 


BD 


AC 


33 






JSR 


LAC33 


1903 


AD5E 


BD 


AE 


E8 






JSR 


LAEE8 


1904 


AD61 


DC 


68 








LDD 


CURLIN 


1905 


AD63 


34 


16 








PSFIS 


X,B,A 


1906 


AD65 


C6 


A5 








LDB 


#$A5 


1907 


AD67 


BD 


B2 


6F 






JSR 


LB26F 


1908 


AD6A 


BD 


Bl 


43 






JSR 


LB143 


1909 


AD6D 


BD 


Bl 


41 






JSR 


LB141 


1910 










* 








1911 


AD70 


D6 


54 








LDB 


FP0SGN 


1912 


AD72 


CA 


7F 








ORB 


#$7F 


1913 


AD74 


D4 


50 








ANDB 


FPA0 


1914 


AD76 


D7 


50 








STB 


FPA0 


1915 


AD78 


10 


8E 


AD 7F 






LDY 


#LAD7F 


1916 


AD7C 


7E 


Bl 


EA 






JMP 


LB1EA 


1917 


AD7F 


8E 


BA 


C5 


LAD7F 


LDX 


#LBAC5 


1918 


AD82 


BD 


BC 


14 






JSR 


LBC14 


1919 


AD85 


9D 


A5 








JSR 


GETCCH 


1920 


AD87 


81 


A9 








CMPA 


#$A9 


1921 


AD89 


26 


05 








BNE 


LAD90 


1922 


AD8B 


9D 


9F 








JSR 


GETNCH 


1923 


AD8D 


BD 


Bl 


41 






JSR 


LB141 


1924 


AD90 


BD 


BC 


6D 


LAD90 


JSR 


LBC6D 


1925 


AD93 


BD 


Bl 


E6 






JSR 


LB1E6 


1926 


AD96 


DC 


3B 








LDD 


VARDES 


1927 


AD98 


34 


06 








PSFIS 


B,A 


1928 


AD9A 


86 


80 








LDA 


#$80 


1929 


AD9C 


34 


02 








PSHS 


A 


1930 










* 








1931 










* 


MAIN 


COMMAND : 


INTERPRETATION LO( 


1932 


AD9E 


BD 


01 


9A 


LAD9E 


JSR 


RVEC20 


1933 


ADA1 


1C 


AF 








ANDCC 


#$AF 


1934 


ADA3 


8D 


46 








BSR 


LADEB 


1935 


ADA5 


9E 


A6 








LDX 


CHARAD 


1936 


ADA7 


9F 


2F 








STX 


TINPTR 


1937 


ADA9 


A6 


80 








LDA 


,x+ 


1938 


ADAB 


27 


07 








BEQ 


LADB4 


1939 


ADAD 


81 


3A 








CMPA 


#': 


1940 


ADAF 


27 


0F 








BEQ 


LADC0 


1941 


ADB1 


7E 


B2 


77 


LADB1 


JMP 


LB277 


1942 


ADB4 


A6 


81 




LADB4 


LDA 


,x++ 


1943 


ADB6 


97 


00 








STA 


ENDFLG 


1944 










* 








1945 










* 








1946 


ADB8 


27 


5B 








BEQ 


LAE15 


1947 


ADBA 


EC 


80 








LDD 


,x+ 


1948 


ADBC 


DD 


68 








STD 


CURLIN 


1949 


ADBE 


9F 


A6 








STX 


CHARAD 


1950 


ADC0 


9D 


9F 




LADCB 


JSR 


GETNCH 


1951 


ADC2 


8D 


02 








BSR 


LADC6 


1952 


ADC4 


20 


D8 








BRA 


LAD9E 


1953 


ADC6 


27 


78 




LADC6 


BEQ 


LAE40 


1954 


ADC8 


4D 










TSTA 




1955 


ADC9 


10 


2A 


01 BC 






LBPL 


LET 


1956 










* 








1957 


ADCD 


81 


A3 








CMPA 


#$A3 


1958 


ADCF 


22 


o: 








BHI 


LADDC 



(DEFAULT STEP VALUE) 



BYTES ON THE STACK FOR 

ING PROCESSED. THESE 

0- $80 (FOR FLAG); 

R POINTER; 3-7=FP VALUE OF STEP; 

EGATIVE; IF ZERO; 1 IF POSITIVE; 

ER; 

17=RAM ADDRESS OF THE END 

HE FOR STATEMENT 

* SAVE THE DISABLE ARRAY FLAG IN V08 

* DO NOT ALLOW THE INDEX VARIABLE TO BE AN ARRAY 
SET INDEX VARIABLE TO INITIAL VALUE 
SEARCH THE STACK FOR FOR/NEXT DATA 
PURGE RETURN ADDRESS OFF OF THE STACK 
BRANCH IF INDEX VARIABLE NOT ALREADY BEING USED 
GET (ADDRESS + 18) OF MATCHED FOR/NEXT DATA 
MOVE THE STACK POINTER TO THE BEGINNING OF THE 

NEW DATA WILL 
L ALSO DESTROY 
EXT DATA BELOW 

* CHECK FOR ROOM FOR 18 BYTES 

* IN FREE RAM 

GET ADDR OF END OF SUBLINE IN X 
GET CURRENT LINE NUMBER 

SAVE LINE ADDR AND LINE NUMBER ON STACK 
TOKEN FOR TO 
SYNTAX CHECK FOR TO 

TM ERROR IF INDEX VARIABLE SET TO STRING 
EVALUATE EXPRESSION 

GET FPA0 MANTISSA SIGN 

FORM A MASK TO SAVE DATA BITS OF HIGH ORDER MANTISSA 

PUT THE MANTISSA SIGN IN BIT 7 OF HIGH ORDER MANTISSA 

SAVE THE PACKED HIGH ORDER MANTISSA 

LOAD FOLLOWING ADDRESS INTO Y AS A RETURN 

ADDRESS - PUSH FPA0 ONTO THE STACK 

POINT X TO FLOATING POINT NUMBI 

MOVE (X) TO FPA0 

GET CURRENT INPUT CHARACTER 

STEP TOKEN 

BRANCH IF NO STEP VALUE 

GET A CHARACTER FROM BASIC 

EVALUATE NUMERIC EXPRESSION 

CHECK STATUS OF FPA0 

SAVE STATUS AND FPA0 ON THE STACK 

* GET DESCRIPTOR POINTER FOR THE STEP 

* VARIABLE AND SAVE IT ON THE STACK 
= GET THE FOR FLAG AND 
= SAVE IT ON THE STACK 



HOOK INTO RAM 

ENABLE IRQ, FIRQ 

CHECK FOR KEYBOARD BREAK 

GET BASIC S INPUT POINTER 

SAVE IT 

GET CURRENT INPUT CHAR & MOVE POINTER 

BRANCH IF END OF LINE 

CHECK FOR LINE SEPARATOR 

BRANCH IF COLON 

SYNTAX ERROR -IF NOT LINE SEPARATOR 
GET MS BYTE OF ADDRESS OF NEXT BASIC LINE 
SAVE IN STOP/END FLAG - CAUSE A STOP IF 
NEXT LINE ADDRESS IS < $8000; CAUSE 
AN END IF ADDRESS > $8000 
BRANCH TO STOP - END OF PROGRAM 
GET CURRENT LINE NUMBER 
SAVE IN CURLIN 

SAVE ADDRESS OF FIRST BYTE OF LINE 
GET A CHARACTER FROM BASIC 
GO PROCESS COMMAND 
GO BACK TO MAIN LOOP 
RETURN IF END OF LINE 

CHECK FOR TOKEN - BIT 7 SET (NEGATIVE) 
BRANCH IF NOT A TOKEN - GO DO A LET WHICH 
IS THE DEFAULT TOKEN FOR MICROSOFT BASIC 
SKIPF TOKEN - HIGHEST EXECUTABLE COMMAND IN BASIC 
BRANCH IF > A BASIC COMMAND 
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1959 


ADD1 


BE 


01 


23 


1960 


ADD4 


48 






1961 


ADD5 


IF 


89 




1962 


ADD7 


3A 






1963 


ADD8 


9D 


9F 




1964 










1965 










1966 


ADDA 


6E 


94 




1967 


ADDC 


81 


B4 




1968 


ADDE 


23 


Dl 




1969 


ADE0 


6E 


9F 


01 2D 


1970 










1971 










1972 


ADE4 


9E 


19 




1973 


ADE6 


30 


IF 




1974 


ADE8 


9F 


33 




1975 


ADEA 


39 






1976 










1977 










1978 


ADEB 


BD 


Al 


CI 


1979 


ADEE 


27 


0A 




1980 


ADF0 


81 


03 




1981 


ADF2 


27 


15 




1982 


ADF4 


81 


13 




1983 


ADF6 


27 


03 




1984 


ADF8 


97 


87 




1985 


AD FA 


39 






1986 


ADFB 


BD 


Al 


CB 


1987 


ADFE 


27 


FB 




1988 


AE00 


20 


EE 




1989 










1990 










1991 


AE02 


BD 


A4 


26 


1992 


AE05 


9D 


A5 




1993 


AE07 


20 


02 




1994 










1995 










1996 


AE09 


1A 


01 




1997 


AE0B 


26 


33 




1998 


AE0D 


9E 


A6 




1999 


AE0F 


9F 


2F 




2000 


AE11 


06 


00 




2001 


AE13 


32 


62 




2002 


AE15 


9E 


68 




2003 


AE17 


8C 


FF 


FF 


2004 


AE1A 


27 


06 




2005 


AE1C 


9F 


29 




2006 


AE1E 


9E 


2F 




2007 


AE20 


9F 


2D 




2008 


AE22 


0F 


6h 




2009 


AE24 


8E 


AB 


Fl 


2010 


AE27 


0D 


00 




2011 


AE29 


10 


2A 


FE 46 


2012 


AE2D 


7E 


AC 


68 


2013 










2014 










2015 










2016 


AE30 


26 


0E 




2017 


AE32 


C6 


20 




2018 


AE34 


9E 


2D 




2019 


AE36 


10 


27 


FE 0C 


2020 


AE3A 


9F 


A6 




2021 


AE3C 


9E 


29 




2022 


AE3E 


9F 


68 




2023 


AE40 


39 






2024 










2025 










2026 


AE41 


27 


2C 




2027 


AE43 


BD 


B3 


E6 


2028 


AE46 


34 


06 




2029 


AE48 


9E 


27 




2030 


AE4A 


9D 


A5 




2031 


AE4C 


27 


0C 




2032 


AE4E 


BD 


B2 


6D 


2033 


AE51 


BD 


B7 


3D 


2034 


AE54 


30 


IF 




2035 


AE56 


9C 


74 




2036 


AE58 


22 


18 




2037 


AE5A 


IF 


10 




2038 


AE5C 


A3 


El 




2039 


AE5E 


25 


12 




2040 


AE60 


IF 


03 




2041 


AE62 


83 


00 


3A 


2042 


AE65 


25 


0B 




2043 


AE67 


93 


IB 




2044 


AE69 


25 


07 




2045 


AE6B 


DF 


21 




2046 


AE6D 


9F 


27 




2047 


AE6F 


7E 


AD 


26 





LDX 


COHVEC+3 


LADD4 


AS LA 






TFR 


A,B 




ABX 






JSR 


GETNCH 


* HERE IS 


WHERE 


HE BRANCH TC 




JHP 


[,X] 


LADDC 


CHPA 


#$B4 




BLS 


LADB1 




JHP 


[COMVEC+13] 


* RESTORE 






RESTOR 


LDX 


TXTTAB 




LEAX 


-1,X 


LADE8 


STX 

RTS 


DATPTR 


* 






* BREAK CHECK 




LADEB 


JSR 


LA1C1 




BEO 


LADFA 


LADF0 


CHPA 


#3 




BEQ 


STOP 




CHPA 


#$13 




BEQ 


LADFB 




STA 


IKEYIM 


LADFA 


RTS 




LADFB 


JSR 


KEYIN 




BEQ 


LADFB 




BRA 


LADF0 


* END 






END 


JSR 


LA426 




JSR 


GETCCH 




BRA 


LAE0B 


* STOP 






STOP 


ORCC 


#$01 


LAE0B 


BNE 


LAE40 




LDX 


CHARAD 




STX 


TINPTR 


LAE11 


ROR 


ENDFLG 




LEAS 


2,S 


LAE15 


LDX 


CORLIN 




CHPX 


#$FFFF 




BEQ 


LAE22 




STX 


OLDTXT 




LDX 


TINPTR 




STX 


OLDPTR 


LAE22 


CLR 


DEVNOH 




LDX 


#LABF2-1 




TST 


ENDFLG 




LBPL 


LAC73 




JHP 


LAC68 



* CONT 






CONT 


BNE 


LAE40 




LDB 


#2*16 




LDX 


OLDPTR 




LBEQ 


LAC46 




STX 


CHARAD 




LDX 


OLDTXT 




STX 


CORLIN 


LAE40 


RTS 




* CLEAR 






CLEAR 


BEQ 


LAE6F 




JSR 


LB3E6 




PSHS 


B,A 




LDX 


MEMSIZ 




JSR 


GETCCH 




BEQ 


LAE5A 




JSR 


LB26D 




JSR 


LB73D 




LEAX 


-1,X 




CHPX 


TO PRAM 




BHI 


LAE72 


LAE5A 


TFR 


X,D 




SUBD 


,s++ 




BCS 


LAE72 




TFR 


D,0 




SUBD 


#STKBOF 




BCS 


LAE72 




SUBD 


VARTAB 




BCS 


LAE72 




STU 


FRETOP 




STX 


MEMSIZ 


LAE6F 


JHP 


LAD26 



GET ADDRESS OF BASIC S COMHAND TABLE 
X2 (2 BYTE/JOMP ADDRESS) & DISCARD BIT 
SAVE COMMAND OFFSET IN ACCB 
NON X POINTS TO COMMAND JOMP ADDR 
GET AN INPOT CHAR 



GO DO A COMHAND 

»B4 IS HIGHEST BASIC TOKEN 

SYNTAX ERROR IF NON- EXECOTABLE TOKEN 
JOMP TO AN EX BAS COMHAND 



BEGINNING OF PROGRAH ADDRESS 
HOVE TO ONE BYTE BEFORE PROGRAH 
SAVE NEB DATA POINTER 



GET A KEYSTROKE ENTRY 

RETORN IF NO INPOT 

CONTROL C? (BREAK) 

YES 

CONTROL S? (PAOSE) 

YES 

SAVE KEYSTROKE IN INKEY IHAGE 

GET A KEY 

BRANCH IF NO KEY DOWN 

CONTINOE - DO A BREAK CHECK 



CLOSE FILES 

GET CORRENT INPOT CHAR 



SET CARRY FLAG 

BRANCH IF ARGOMENT EXISTS 

* SAVE CORRENT POSITION OF 

* BASIC S INPOT POINTER 

ROTATE CARRY INTO BIT 7 OF STOP/END FLAG 

PORGE RETORN ADDRESS OFF STACK 

GET CORRENT LINE NOMBER 

DIRECT HODE? 

YES 

SAVE CORRENT LINE NOMBER 

* GET AND SAVE CORRENT POSITION 

* OF BASIC S INPOT POINTER 
SET DEVICE NOMBER TO SCREEN 
POINT TO CR, BREAK MESSAGE 
CHECK STOP/END FLAG 

BRANCH TO MAIN LOOP OF BASIC IF END 
PRINT BREAK AT #### AND GO TO 
BASIC S MAIN LOOP IF STOP 



RETORN IF ARGOMENT GIVEN 

CAN T CONTINOE ERROR 
GET CONTINOE ADDRESS (INPOT POINTER) 

CN ERROR IF CONTINOE ADDRESS = 
RESET BASIC S INPOT POINTER 
GET LINE NOMBER 
RESET CORRENT LINE NOMBER 



BRANCH IF NO ARGOMENT 

EVALOATE ARGOMENT 

SAVE AMOONT OF STRING SPACE ON STACK 

GET CORRENT TOP OF CLEARED SPACE 

GET CORRENT INPOT CHARACTER 

BRANCH IF NO NEW TOP OF CLEARED SPACE 

SYNTAX CHECK FOR COMHA 

EVALOATE EXPRESSION; RETORN VALOE IN X 

X = TOP OF CLEARED SPACE 

COMPARE TO TOP OF RAM 

OH ERROR IF > TOP OF RAH 
ACCD = TOP OF CLEARED SPACE 
SOBTRACT OOT AHOONT OF CLEARED SPACE 

OH ERROR IF FREE HEH < 
= BOTTOH OF CLEARED SPACE 
SOBTRACT OOT STACK BOFFER 

OH ERROR IF FREE HEH < 
SOBTRACT OOT START OF VARIABLES 

OH ERROR IF FREE HEH < 
SAVE NEK BOTTOH OF CLEARED SPACE 
SAVE NEK TOP OF CLEARED SPACE 
ERASE ALL VARIABLES, INITIALIZE POINTERS, 
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2048 


AE72 


7E 


AC 


44 


LAE72 


JHP 


LAC44 


2049 










* 






2050 










* RUN 






2051 


AE75 


BD 


01 


94 


RUN 


JSR 


RVEC18 


2052 


AE78 


BD 


A4 


26 




JSR 


LA426 


2053 


AE7B 


9D 


A5 






JSR 


GETCCH 


2054 


AE7D 


10 


27 


FE A0 




LBEO 


LAD21 


2055 


AE81 


BD 


AD 


26 




JSR 


LAD26 


2056 


AE84 


20 


19 






BRA 


LAE9F 


2057 










* 






2058 










* GO 






2059 


AE86 


IF 


89 




GO 


TFR 


A,B 


2060 


AE88 


9D 


9F 




LAE88 


JSR 


GETNCH 


2061 


AE8A 


CI 


A5 






CHPB 


#»A5 


2062 


AE8C 


27 


16 






BEQ 


LAEA4 


2063 


AE8E 


CI 


A6 






CHPB 


#$A6 


2064 


AE90 


26 


45 






BNE 


LAED7 


2065 


AE92 


C6 


03 






LDB 


#3 


2066 


AE94 


BD 


AC 


33 




JSR 


LAC33 


2067 


AE97 


DE 


A6 






LDU 


CHARAD 


2068 


AE99 


9E 


68 






LDX 


CURLIN 


2069 


AE9B 


86 


A6 






LDA 


#$A6 


2070 


AE9D 


34 


52 






PSHS 


U,X,A 


2071 


AE9F 


8D 


03 




LAE9F 


BSR 


LAEA4 


2072 


AEA1 


7E 


AD 


9E 




JHP 


LAD9E 


2073 










* GOTO 






2074 


AEA4 


9D 


A5 




LAEA4 


JSR 


GETCCH 


2075 


AEA6 


BD 


AF 


67 




JSR 


LAF67 


2076 


AEA9 


8D 


40 






BSR 


LAEEB 


2077 


AEAB 


30 


01 






LEAX 


$01, X 


2078 


AEAD 


DC 


2B 






LDD 


BINVAL 


2079 


AEAF 


10 


93 


68 




CMPD 


CURLIN 


2080 


AEB2 


22 


02 






BHI 


LAEB6 


2081 










• 






2082 










* 






2083 


AEB4 


9E 


19 






LDX 


TXTTAB 


2084 


AEB6 


BD 


AD 


05 


LAEB6 


JSR 


LAD05 


2085 


AEB9 


25 


17 






BCS 


LAED2 


2086 


AEBB 


30 


IF 




LAEBB 


LEAX 


-1,X 


2087 


AEBD 


9F 


A6 






STX 


CHARAD 


2088 


AEBF 


39 






LAEBF 


RTS 




2089 










* 






2090 










* RETURN 






2091 


AEC0 


26 


FD 




RETURN 


BNE 


LAEBF 


2092 


AEC2 


86 


FF 






LDA 


#$FF 


2093 


AEC4 


97 


3B 






STA 


VARDES 


2094 










* 






2095 


AEC6 


BD 


AB 


F9 




JSR 


LABF9 


2096 


AEC9 


IF 


14 






TFR 


X,S 


2097 










* 






2098 


AECB 


81 


26 






CHPA 


#$A6-$80 


2099 


AECD 


27 


0B 






BEO 


LAEDA 


2100 


AECF 


C6 


04 






LDB 


#2*2 


2101 


AED1 


8C 








FCB 


SKP2 


2102 


AED2 


C6 


0E 




LAED2 


LDB 


#7*2 


2103 


AED4 


7E 


AC 


46 




JHP 


LAC46 


2104 


AED7 


7E 


B2 


77 


LAED7 


JHP 


LB277 


2105 


AEDA 


35 


52 




LAEDA 


PULS 


A,X,U 


2106 


AEDC 


9F 


68 






STX 


CURLIN 


2107 


AEDE 


DF 


A6 






STU 


CHARAD 


2108 










* 






2109 










* DATA 






2110 


AEE0 


8D 


06 




DATA 


BSR 


LAEE8 


2111 


AEE2 


8C 








FCB 


SKP2 


2112 
















2113 










* REM, ELSE 




2114 










ELSE 






2115 


AEE3 


8D 


06 




REM 


BSR 


LAEEB 


2116 


AEE5 


9F 


A6 






STX 


CHARAD 


2117 


AEE7 


39 






LAEE7 


RTS 




2118 










* ADVANCE 


INPUT 


POINTER TO END 


2119 


AEE8 


C6 


3A 




LAEE8 


LDB 


#' : 


2120 


AEEA 


86 






LAEEA 


FCB 


SKP1LD 


2121 










* ADVANCE 


BASIC 


S INPUT POINTE 


2122 










* LINE - 


RETURN 


ADDRESS OF END 


2123 


AEEB 


5F 






LAEEB 


CLRB 




2124 


AEEC 


D7 


01 






STB 


CHARAC 


2125 


AEEE 


5F 








CLRB 




2126 


AEEF 


9E 


A6 






LDX 


CHARAD 


2127 


AEF1 


IF 


98 




LAEF1 


TFR 


B,A 


2128 


AEF3 


D6 


01 






LDB 


CHARAC 


2129 










* 






2130 


AEF5 


97 


01 






STA 


CHARAC 


2131 


AEF7 


A6 


84 




LAEF7 


LDA 


,x 


2132 


AEF9 


27 


EC 






BEQ 


LAEE7 


2133 


AEFB 


34 


04 






PSHS 


B 


2134 


AEFD 


Al 


E0 






CHPA 


,s+ 


2135 


AEFF 


27 


E6 






BEQ 


LAEE7 


2136 


AF01 


30 


01 






LEAX 


1,X 



HOOK INTO RAH 

CLOSE ANY OPEN FILES 

* GET CURRENT INPUT CHARACTER 

* IF NO LINE NUMBER 
ERASE ALL VARIABLES 

GOTO THE RUN ADDRESS 



SAVE INPUT CHARACTER IN ACCB 
GET A CHARACTER FROM BASIC 

TO TOKEN 
BRANCH IF GOTO 

SUB TOKEN 

SYNTAX ERROR IF NEITHER 
=ROOM FOR 6 
=BYTES ON STACK? 

* SAVE CURRENT BASIC INPUT POINTER, LINE 

* NUMBER AND SUB TOKEN ON STACK 



GO DO A GOTO 
JUMP BACK TO BASIC 



S MAIN LOOP 



GET CURRENT INPUT CHAR 

GET LINE NUMBER TO BINARY IN BINVAL 

ADVANCE BASIC S POINTER TO END OF LINE 

POINT TO START OF NEXT LINE 

GET THE LINE NUMBER TO RUN 

COMPARE TO CURRENT LINE NUMBER 

IF REO D LINE NUHBER IS > CURRENT LINE NUMBER 

DON T START LOOKING FROM 

START OF PROGRAH 

BEGINNING OF PROGRAM 

GO FIND A LINE NUMBER 

UNDEFINED LINE NUMBER 
MOVE BACK TO JUST BEFORE START OF LINE 
RESET BASIC S INPUT POINTER 



EXIT ROUTINE IF ARGUMENT GIVEN 

* PUT AN ILLEGAL VARIABLE NAME IN FIRST BYTE OF 

* VARDES WHICH HILL CAUSE FOR/NEXT DATA ON THE 
STACK TO BE IGNORED 

CHECK FOR RETURN DATA ON THE STACK 
RESET STACK POINTER - PURGE TWO RETURN ADDRESSES 
FROM THE STACK 
SUB TOKEN - $80 

BRANCH IF RETURN FROM SUBROUTINE 
ERROR #2 RETURN WITHOUT GOSUB 
SKIP THO BYTES 

ERROR #7 UNDEFINED LINE NUMBER 
JUHP TO ERROR HANDLER 
SYNTAX ERROR 

* RESTORE VALUES OF CURRENT LINE NUMBER AND 

* BASIC S INPUT POINTER FOR THIS SUBROUTINE 

* AND LOAD ACCA KITH SUB TOKEN (>A6) 



MOVE INPUT POINTER TO END OF SUBLINE OR LINE 
SKIP 2 BYTES 



HOVE INPUT POINTER TO END OF LINE 
RESET BASIC S INPUT POINTER 

OF SUBLINE OR LINE 

COLON = SUBLINE TERHINATOR CHARACTER 
SKPILD SKIP ONE BYTE; LDA #$5F 
! TO END OF 

OF LINE+1 IN X 

= LINE TERMINATOR CHARACTER 
TEMP STORE PRIMARY TERMINATOR CHARACTER 
(END OF LINE) = ALTERNATE TERM. CHAR. 
LOAD X H/BASIC S INPUT POINTER 

* CHANGE TERMINATOR CHARACTER 

* FROM ACCB TO CHARAC - SAVE OLD TERMINATOR 
IN CHARAC 

SUAP PRIMARY AND SECONDARY TERMINATORS 

GET NEXT INPUT CHARACTER 

RETURN IF (END OF LINE) 

SAVE TERMINATOR ON STACK 

COMPARE TO INPUT CHARACTER 

RETURN IF EQUAL 

MOVE POINTER UP ONE 



COLOR BASIC UNRAVELLED II 
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2137 


AF03 


81 


22 


2138 


AF05 


27 


EA 


2139 


AF07 


4C 




2140 


AF08 


26 


02 


2141 


AF0A 


30 


01 


2142 


AF0C 


81 


86 


2143 


AF0E 


26 


E7 


2144 


AF10 


0C 


04 


2145 








2146 


AF12 


20 


E3 


2147 








2148 








2149 


AF14 


BD 


Bl 41 


2150 


AF17 


9D 


A5 


2151 


AF19 


81 


81 


2152 


AF1B 


27 


05 


2153 


AF1D 


C6 


A7 


2154 


AF1F 


BD 


B2 6F 


2155 


AF22 


96 


4F 


2156 


AF24 


26 


13 


2157 


AF26 


0F 


04 


2158 








2159 


AF28 


8D 


B6 


2160 


AF2A 


4D 




2161 


AF2B 


27 


BA 


2162 


AF2D 


9D 


9F 


2163 


AF2F 


81 


84 


2164 


AF31 


26 


F5 


2165 








2166 


AF33 


0A 


04 


2167 


AF35 


2A 


Fl 


2168 


AF37 


9D 


9F 


2169 


AF39 


9D 


A5 


2170 


AF3B 


10 


25 FF 


2171 


AF3F 


7E 


AD C6 


2172 








2173 








2174 


AF42 


BD 


B7 0B 


2175 


AF45 


C6 


81 


2176 


AF47 


BD 


B2 6F 


2177 


AF4A 


34 


02 


2178 


AF4C 


81 


A6 


2179 


AF4E 


27 


04 


2180 


AF50 


81 


A5 


2181 


AF52 


26 


83 


2182 


AF54 


0A 


53 


2183 








2184 


AF56 


26 


05 


2185 


AF58 


35 


04 


2186 


AF5A 


7E 


AE 88 


2187 


AF5D 


9D 


9F 


2188 


AF5F 


8D 


06 


2189 


AF61 


81 


2C 


2190 


AF63 


27 


EF 


2191 


AF65 


35 


84 


2192 


AF67 


9E 


8A 


2193 


AF69 


9F 


2B 


2194 








2195 








2196 








2197 


AF6B 


24 


61 


2198 


AF6D 


80 


30 


2199 


AF6F 


97 


01 


2200 


AF71 


DC 


2B 


2201 


AF73 


81 


18 


2202 








2203 


AF75 


22 


DB 


2204 








2205 


AF77 


58 




2206 


AF78 


49 




2207 


AF79 


58 




2208 


AF7A 


49 




2209 


AF7B 


D3 


2B 


2210 


AF7D 


58 




2211 


AF7E 


49 




2212 


AF7F 


DB 


01 


2213 


AF81 


89 


00 


2214 


AF83 


DD 


2B 


2215 


AF85 


9D 


9F 


2216 


AF87 


20 


E2 


2217 








2218 








2219 








2220 








2221 


AF89 


BD 


B3 57 


2222 


AF8C 


9F 


3B 


2223 


AF8E 


C6 


B3 


2224 


AF90 


BD 


B2 6F 


2225 


AF93 


96 


06 



CHPA 


#'" 


BEQ 


LAEF1 


INCA 




BNE 


LAF0C 


LEAX 


1,X 


CHPA 


#$85+1 


BNE 


LAEF7 


INC 


IFCTR 



IF 


JSR 


LB141 




JSR 


GETCCH 




CHPA 


#$81 




BEO 


LAF22 




LDB 


#$A7 




JSR 


LB26F 


LAF22 


LDA 


FP0EXP 




BNE 


LAF39 




CLR 


IFCTR 


LAF28 


BSR 

TSTA 


DATA 




BEQ 


LAEE7 




JSR 


GETNCH 




CHPA 


#$84 




BNE 


LAF28 




DEC 


IFCTR 




BPL 


LAF28 




JSR 


GETNCH 


LAF39 


JSR 


GETCCH 




LBCS 


LAEA4 




JHP 


LADC6 


* ON 






ON 


JSR 


LB70B 




LDB 


#$81 




JSR 


LB26F 




PSHS 


A 




CHPA 


#$A6 




BEQ 


LAF54 




CHPA 


#$A5 


LAF52 


BNE 


LAED7 


LAF54 


DEC 


FPA0+3 




BNE 


LAF5D 




PULS 


B 




JHP 


LAE88 


LAF5D 


JSR 


GETNCH 




BSR 


LAF67 




CHPA 


#', 




BEO 


LAF54 




PULS 


B,PC 


LAF67 


LDX 


ZERO 




STX 


BINVAL 



CHECK FOR DOUBLE QUOTES 

BRANCH IF " - TOGGLE TERMINATOR CHARACTERS 

* CHECK FOR $FF AND BRANCH IF 

* NOT SECONDARY TOKEN 

HOVE INPUT POINTER 1 HORE IF SECONDARY 

TOKEN FOR IF? 

NO - GET ANOTHER INPUT CHARACTER 

INCREMENT IF COUNTER - KEEP TRACK OF HOH MANY 

IF STATEMENTS ARE NESTED IN ONE LINE 
GET ANOTHER INPUT CHARACTER 



EVALUATE NUMERIC EXPRESSION 

GET CURRENT INPUT CHARACTER 

TOKEN FOR GO 

TREAT GO THE SAME AS THEN 

TOKEN FOR THEN 

DO A SYNTAX CHECK ON ACCB 

CHECK FOR TRUE/FALSE - FALSE IF FPA0 EXPONENT = ZERO 

BRANCH IF CONDITION TRUE 

CLEAR FLAG - KEEP TRACK OF WHICH NESTED ELSE STATEMENT 

TO SEARCH FOR IN NESTED IF LOOPS 

MOVE BASIC S POINTER TO END OF SUBLINE 

* CHECK TO SEE IF END OF LINE OR SUBLINE 

* AND RETURN IF END OF LINE 

GET AN INPUT CHARACTER FROM BASIC 

TOKEN FOR ELSE 

IGNORE ALL DATA EXCEPT ELSE UNTIL 

END OF LINE (ZERO BYTE) 

CHECK TO SEE IF YOU MUST SEARCH ANOTHER SUBLINE 

BRANCH TO SEARCH ANOTHER SUBLINE FOR ELSE 

GET AN INPUT CHARACTER FROM BASIC 

GET CURRENT INPUT CHARACTER 

BRANCH TO GOTO IF NUMERIC CHARACTER 

RETURN TO MAIN INTERPRETATION LOOP 



EVALUATE EXPRESSION 

TOKEN FOR GO 

SYNTAX CHECK FOR GO 

SAVE NEK TOKEN (TO, SUB) 

TOKEN FOR SUB? 

YES 

TOKEN FOR TO? 

SYNTAX ERROR IF NOT SUB OR TO 
DECREMENT IS BYTE OF MANTISSA OF FPA0 - THIS 
IS THE ARGUMENT OF THE ON STATEMENT 

BRANCH IF NOT AT THE PROPER GOTO OR GOSUB LINE NUMBER 
GET BACK THE TOKEN FOLLOWING GO 
GO DO A GOTO OR GOSUB 
GET A CHARACTER FROM BASIC 
CONVERT BASIC LINE NUMBER TO BINARY 
IS CHARACTER FOLLOWING LINE NUMBER A COMHA? 
YES 

IF NOT, FALL THROUGH TO NEXT COMMAND 
DEFAULT LINE NUMBER OF ZERO 
SAVE IT IN BINVAL 



CONVERT LINE NUMBER TO BINARY - RETURN VALUE IN BINVAL 



SUBA 


#'0 


STA 


CHARAC 


LDD 


BINVAL 


CHPA 


#24 


BHI 


LAF52 


HULT ACCD X 10 




ASLB 




ROLA 




ASLB 




ROLA 




ADDD 


BINVAL 


ASLB 




ROLA 




ADDB 


CHARAC 


ADCA 


#0 


STD 


BINVAL 


JSR 


GETNCH 


BRA 


LAF6B 



LET (EXBAS) 

EVALUATE A NON-TOKEN EXPRESSION 
TARGET = REPLACEMENT 
ET JSR LB357 

STX VARDES 

LDB #$B3 

JSR LB26F 

LDA VALTYP 



RETURN IF NOT NUMERIC CHARACTER 
MASK OFF ASCII 
SAVE DIGIT IN VOl 

GET ACCUMULATED LINE NUMBER VALUE 
LARGEST LINE NUMBER IS $F9FF (63999) 
(24*256+2551*10+9 
SYNTAX ERROR IF TOO BIG 



= TIMES 4 

ADD 1 = TIMES 5 

* TIMES 10 

ADD NEXT DIGIT 

PROPAGATE CARRY 

SAVE NEK ACCUMULATED LINE NUMBER 

GET NEXT CHARACTER FROM BASIC 

LOOP- PROCESS NEXT DIGIT 



FIND TARGET VARIABLE DESCRIPTOR 

SAVE DESCRIPTOR ADDRESS OF 1ST EXPRESSION 

TOKEN FOR "=" 

DO A SYNTAX CHECK FOR = 

* GET VARIABLE TYPE AND 



COLOR BASIC UNRAVELLED II 
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2226 


AF95 


34 


02 






2227 


AF97 


BD 


Bl 


56 




2228 


AF9A 


35 


02 






2229 


AF9C 


46 








2230 


AF9D 


BD 


Bl 


48 




2231 












2232 


AFA0 


10 


27 


0C 8F 




2233 












2234 












2235 












2236 












2237 












2238 












2239 


AFA4 


9E 


52 






2240 


AFA6 


DC 


21 






2241 


AFA8 


10 


A3 


02 




2242 


AFAB 


24 


11 






2243 


AFAD 


9C 


IB 






2244 


AFAF 


25 


0D 






2245 


AFB1 


E6 


84 






2246 


AFB3 


BD 


B5 


0D 




2247 


AFB6 


9E 


4D 






2248 


AFB8 


BD 


B6 


43 




2249 


AFBB 


8E 


00 


56 




2250 


AFBE 


9F 


4D 






2251 


AFC0 


BD 


B6 


75 




2252 












2253 


AFC3 


DE 


4D 






2254 


AFC5 


9E 


3B 






2255 


AFC7 


37 


26 






2256 


AFC9 


A7 


84 






2257 


AFCB 


10 


AF 


02 




2258 


AFCE 


39 








2259 












2260 


AFCF 


3F 


52 


45 44 


4F 


2261 


AFD4 


0D 


00 






2262 












2263 


AFD6 


C6 


22 






2264 


AF08 


0D 


6F 






2265 


AFDA 


27 


03 






2266 


AFDC 


7E 


AC 


46 




2267 


AFDF 


96 


09 






2268 


AFE1 


27 


07 






2269 


AFE3 


9E 


31 






2270 


AFE5 


9F 


68 






2271 


AFE7 


7E 


B2 


77 




2272 


AFEA 


8E 


AF 


CE 




2273 


AFED 


BD 


B9 


9C 




2274 


AFF0 


9E 


2F 






2275 


AFF2 


9F 


A6 






2276 


AFF4 


39 








2277 












2278 












2279 


AFF5 


C6 


16 






2280 


AFF7 


9E 


68 






2281 


AFF9 


30 


01 






2282 


AFFB 


27 


Dh 






2283 


AFFD 


8D 


03 






2284 


AFFF 


0F 


6F 






2285 


3001 


39 








2286 


B002 


81 


23 






2287 


B004 


26 


09 






2288 


B006 


BD 


A5 


A5 




2289 


B009 


BD 


A3 


ED 




2290 


B00C 


BD 


B2 


6D 




2291 


B00F 


81 


22 






2292 


B011 


26 


0B 






2293 


B013 


BD 


B2 


44 




2294 


B016 


C6 


3B 






2295 


B018 


BD 


B2 


6F 




2296 


B01B 


BD 


B9 


9F 




2297 


B01E 


8E 


02 


DC 




2298 


B021 


6F 


84 






2299 












2300 


B023 


0D 


6F 






2301 


B025 


26 


22 






2302 


B027 


8D 


06 






2303 


B029 


C6 


2C 






2304 


B02B 


E7 


84 






2305 


B02D 


20 


1A 






2306 












2307 


B02F 


BD 


B9 


AF 




2308 


B032 


BD 


B9 


AC 




2309 


B035 


BD 


A3 


90 




2310 


B038 


24 


05 






2311 


B03A 


32 


64 






2312 


B03C 


7E 


AE 


11 




2313 


B03F 


C6 


2E 






2314 


B041 


0D 


70 







* MOVE 

* FPA0 

* DESC 

* DON 

* STRI 

* STAC 
LAFA4 



PSHS 

JSR 

PUTS 

RORA 
JSR 

LBEQ 
A STRING 
2 INTO T 
RIPTOR AD 
T MOVE TH 
NG SPACE. 
K IF IT I 
LDX 
LDD 
CHPD 



LAFDC 
LAFDF 



* INPUT 
INPUT 



BCC 



JSR 
LDX 
JSR 
LDX 
STX 
JSR 

LDU 

LDX 

PULU 

STA 

STY 

RTS 



TST 
BEO 
JHP 
LDA 
BEQ 
LDX 
STX 
JHP 
LDX 
JSR 
LDX 
STX 
RTS 



LDB 

LDX 

LEAX 

BEQ 

BSR 

CLR 

RTS 

CMPA 

BNE 

JSR 

JSR 

JSR 

CMPA 

BNE 

JSR 

LDB 

JSR 

JSR 

LDX 

CLR 

TST 

BNE 
BSR 



FILL BASIC S 

B02F JSR 

JSR 

B035 JSR 



LEAS 
JMP 



LBC33 
WHOSE DE 
HE STRING 
DRESS TO 
: STRING 
REMOVE D 
i LAST ON 

FPA0+2 

FRETOP 

2,X 

LAFBE 

VARTAB 

LAFBE 

,X 

LB50D 

V4D 

LB643 

#STRDES 

V4D 

LB675 

V4D 
VARDES 



* SAVE ON THE STACK 
EVALUATE EXPRESSION 

* REGET VARIABLE TYPE OF 1ST EXPRESSION AND 

* SET CARRY IF STRING 

TYPE CHECK-TM ERROR IF VARIABLE TYPES ON 
BOTH SIDES OF EQUALS SIGN NOT THE SAME 
GO PUT FPA0 INTO VARIABLE DESCRIPTOR IF NUMERIC 

SCRIPTOR IS LOCATED AT 
SPACE. TRANSFER THE 

THE ADDRESS IN VARDES 

IF IT IS ALREADY IN THE 

ESCRIPTOR FROM STRING 

E ON THE STACK 

POINT X TO DESCRIPTOR OF REPLACEMENT STRING 

LOAD ACCD WITH START OF STRING SPACE 

IS THE STRING IN STRING SPACE? 

BRANCH IF IT S NOT IN THE STRING SPACE 

COMPARE DESCRIPTOR ADDRESS TO START OF VARIABLES 

BRANCH IF DESCRIPTOR ADDRESS NOT IN VARIABLES 

GET LENGTH OF REPLACEMENT STRING 

RESERVE ACCB BYTES OF STRING SPACE 

GET DESCRIPTOR ADDRESS BACK 

MOVE STRING INTO STRING SPACE 

POINT X TO TEMP STRING DESCRIPTOR ADDRESS 

SAVE STRING DESCRIPTOR ADDRESS IN V4D 

REMOVE STRING DESCRIPTOR IF LAST ONE 

ON STRING STACK 

POINT U TO REPLACEMENT DESCRIPTOR ADDRESS 

GET TARGET DESCRIPTOR ADDRESS 

GET LENGTH AND START OF REPLACEMENT STRING 

* SAVE STRING LENGTH AND START IN 

* TARGET DESCRIPTOR LOCATION 



''REDO' 
CR,»00 

#2*17 

DEVNUM 

LAFDF 

LAC46 

INPFLG 

LAFEA 

DATTXT 

CURLIN 

LB277 

#LAFCF-1 

LB99C 

TINPTR 

CHARAD 



#11*2 

CURLIN 

1,X 

LAFDC 

LB002 

DEVNUM 

#'# 

LB00F 

LA5A5 

LA3ED 

LB26D 

#'" 

LB01E 

LB244 

#' ! 

LB26F 

LB99F 

#LINBUF 



DEVNUM 

LB049 

LB02F 



LB049 
LINE INPUT 
LB9AF 
LB9AC 
LA390 
LB03F 
4,S 
LAE11 
#2*23 
CINBFL 



'REDO MESSAGE 



BAD FILE DATA ERROR 
CHECK DEVICE NUMBER AND BRANCH 
IF SET TO SCREEN 
JMP TO ERROR HANDLER 
= GET THE INPUT FLAG AND BRANCH 
= IF INPUT 

* GET LINE NUMBER WHERE THE ERROR OCCURRED 

* AND USE IT AS THE CURRENT LINE NUMBER 
SYNTAX ERROR 

* POINT X TO ?REDO AND PRINT 

* IT ON THE SCREEN 

= GET THE SAVED ABSOLUTE ADDRESS OF 
= INPUT POINTER AND RESTORE IT 



ID ERROR 
GET CURRENT LINE NUMBER 
ADD ONE 

ID ERROR BRANCH IF DIRECT MODE 
GET SOME INPUT DATA 
SET DEVICE NUMBER TO SCREEN 

CHECK FOR DEVICE NUMBER 

NO DEVICE NUMBER GIVEN 

CHECK SYNTAX AND GET DEVICE NUMBER 

CHECK FOR VALID INPUT FILE 

SYNTAX CHECK FOR COMMA 

CHECK FOR PROMPT STRING DELIMITER 

BRANCH IF NO PROMPT STRING 

PUT PROMPT STRING ON STRING STACK 

* DO A SYNTAX CHECK FOR SEMICOLON 
PRINT MESSAGE TO CONSOLE OUT 
POINT TO BASIC S LINE BUFFER 

CLEAR 1ST BYTE - FLAG TO INDICATE NO DATA 

IN LINE BUFFER 

CHECK DEVICE NUMBER 

BRANCH IF NOT SET TO SCREEN 

INPUT A STRING TO LINE BUFFER 

* INSERT A COMMA AT THE END 

* OF THE LINE INPUT BUFFER 



iUFFER CONSOLE IN 



SEND A "?" TO CONSOLE OUT 

SEND A SPACE TO CONSOLE OUT 

GO READ IN A BASIC LINE 

BRANCH IF ENTER KEY ENDED ENTRY 

PURGE TWO RETURN ADDRESSES OFF THE STACK 

GO DO A STOP IF BREAK KEY ENDED LINE ENTRY 

INPUT PAST END OF FILE ERROR 
CHECK FOR MORE CHARACTERS IN CONSOLE IN BUFFER 
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* READ 






READ 


LDX 


DATPTR 




FCB 


SKP1LD 


LB049 


CLRA 






STA 


INPFLG 




STX 


DATTMP 


LB04E 


JSR 


LB357 




STX 


VARDES 




LDX 


CHARAD 




STX 


BINVAL 




LDX 


DATTMP 




LDA 


,x 




BNE 


LB069 




LDA 


INPFLG 




BNE 


LB0B9 


* NO DATA IN INPUT LINE BUFFER 


* NOT 


COMING FROM SCREEN 




JSR 


RVEC10 




JSR 


LB9AF 




BSR 


LB02F 


LB069 


STX 


CHARAD 




JSR 


GETNCH 




LDB 


VALTYP 




BEQ 


LB098 


* READ/INPUT A '. 


STRING VARIABLE 




LDX 


CHARAD 




STA 


CHARAC 




CMPA 


#"' 




BEO 


LB08B 




LEAX 


-1,X 




CLRA 






STA 


CHARAC 




JSR 


LA35F 




TST 


PRTDEV 




BNE 


LB08B 




LDA 


#' : 




STA 


CHARAC 




LDA 


#' . 


LB08B 


STA 


ENDCHR 




JSR 


LB51E 




OSR 


LB249 




JSR 


LAFA4 




BRA 


LB09E 


* SAVE 


A NUMERIC VALUE IN A READ 


LB098 


JSR 


LBD12 




JSR 


LBC33 


LB09E 


JSR 


GETCCH 




BEO 


LB0A8 




CMPA 


#' . 




LBNE 


LAFD6 


LB0A8 


LDX 


CHARAD 




STX 


DATTMP 




LDX 


BINVAL 




STX 


CHARAD 




JSR 


GETCCH 




BEO 


LB0D5 




JSR 


LB26D 




BRA 


LB04E 


* SEARCH FROM ADDRESS IN X FOR 


* 1ST 


OCCURENCE 


OF THE TOKEN FOR 


LB0B9 


STX 


CHARAD 




JSR 


LAEE8 




LEAX 


1,X 




TSTA 






BNE 


LB0CD 




LDB 


#2*3 




LDU 


,X++ 




BEO 


LB10A 




LDD 


,X++ 




STD 


DATTXT 


LB0CD 


LDA 


,x 




CMPA 


#$86 




BNE 


LB0B9 




BRA 


LB069 


* EXIT 


READ AND 


INPUT COMMANDS 


LB0D5 


LDX 


DATTMP 




LDB 


INPFLG 




LBNE 


LADE8 




LDA 


,x 




BEO 


LB0E7 




LDX 


#LB0E8-1 




JHP 


LB99C 


LB0E7 


RTS 





IE ERROR IF EMPTY 



GET READ START ADDRESS 
SKIP ONE BYTE - LDA #*»4F 

INPUT ENTRY POINT: INPUT FLAG = 
SET INPUT FLAG; = INPUT: <> = READ 
SAVE READ START ADDRESS/ INPUT BUFFER START 
EVALUATE A VARIABLE 
SAVE DESCRIPTOR ADDRESS 

* GET BASIC S INPUT POINTER 

* AND SAVE IT 

GET READ ADDRESS START/ INPUT BUFFER POINTER 
GET A CHARACTER FROM THE BASIC PROGRAM 
BRANCH IF NOT END OF LINE 

* CHECK INPUT FLAG AND BRANCH 

* IF LOOKING FOR DATA (READ) 
AND/OR INPUT 

HOOK INTO RAM IF INPUT 

SEND A '?' TO CONSOLE OUT 

FILL INPUT BUFFER FROM CONSOLE IN 

RESET BASIC S INPUT POINTER 

GET A CHARACTER FROM BASIC 

* CHECK VARIABLE TYPE AND 

* BRANCH IF NUMERIC 

LOAD X HITH CURRENT BASIC INPUT POINTER 
SAVE CURRENT INPUT CHARACTER 
CHECK FOR STRING DELIMITER 
BRANCH IF STRING DELIMITER 
BACK UP POINTER 

* ZERO = END OF LINE CHARACTER 

* SAVE AS TERMINATOR 
SET UP PRINT PARAMETERS 
CHECK PRINT DEVICE NUMBER 

BRANCH IF CASSETTE - USE TWO ZEROS AS TERMINATOR 
CHARACTERS FOR CASSETTE 
END OF SUBLINE CHARACTER 
SAVE AS TERMINATOR I 
COMMA 

SAVE AS TERMINATOR 2 

STRIP A STRING FROM THE INPUT BUFFER 
MOVE INPUT POINTER TO END OF STRING 
PUT A STRING INTO THE STRING SPACE IF NECESSARY 
CHECK FOR ANOTHER DATA ITEM 
OR INPUT DATA ITEM 

CONVERT AN ASCII STRING TO FP NUMBER 

PACK FPA0 AND STORE IT IN ADDRESS IN VARDES - 

INPUT OR READ DATA ITEM 

GET CURRENT INPUT CHARACTER 

BRANCH IF END OF LINE 

CHECK FOR A COMMA 

'BAD FILE DATA' ERROR OR RETRY 

* GET CURRENT INPUT 

* POINTER (USED AS A DATA POINTER) AND SAVE IT 

* RESET INPUT POINTER TO INPUT OR 

* READ STATEMENT 

GET CURRENT CHARACTER FROM BASIC 
BRANCH IF END OF LINE - EXIT COMMAND 
SYNTAX CHECK FOR COMMA 
GET ANOTHER INPUT OR READ ITEM 



RESET BASIC S INPUT POINTER 

SEARCH FOR END OF CURRENT LINE OR SUBLINE 

MOVE X ONE PAST END OF LINE 

CHECK FOR END OF LINE 

BRANCH IF END OF SUBLINE 

OUT OF DATA ERROR 
GET NEXT 2 CHARACTERS 

OD ERROR IF END OF PROGRAM 
GET BASIC LINE NUMBER AND 
SAVE IT IN DATTXT 
GET AN INPUT CHARACTER 
DATA TOKEN? 
NO KEEP LOOKING 
YES 

GET DATA POINTER 

* CHECK INPUT FLAG 

* SAVE NEU DATA POINTER IF READ 

= CHECK NEXT CHARACTER IN INPUT BUFFER 
= RETURN IF NO MORE DATA FOR INPUT 
POINT X TO ?EXTRA IGNORED 
PRINT THE MESSAGE 
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'?EXTRA IGNORED' 



* NEXT 






NEXT 


BNE 


LB0FE 




LDX 


ZERO 




BRA 


LB101 


LBBFE 


JSR 


LB357 


LB101 


STX 


VARDES 




JSR 


LABF9 




BEQ 


LB10C 




LDB 


#0 


LB10A 


BRA 


LB153 


LB10C 


TFR 


X,S 




LEAX 


3,X 




JSR 


LBC14 




LDA 


8,S 




STA 


FP0SGN 




LDX 


VARDES 




JSR 


LB9C2 




JSR 


LBC33 




LEAX 


9,S 




JSR 


LBC96 


. 


SUBB 


8,S 


* 


BEQ 


LB134 




LDX 


14, S 




STX 


CURLIN 




LDX 


16, S 




STX 


CHARAD 


LB131 


JHP 


LAD9E 


LB134 


LEAS 


18, S 




JSR 


GETCCH 




CHPA 


#' . 




BNE 


LB131 




JSR 


GETNCH 




BSR 


LB0FE 


* EVALUATE A NUMERIC EX 


LB141 


BSR 


LB156 


LB143 


ANDCC 


#$FE 


LB145 


FCB 


$7D 



STRING 
NUMERIC 
IF ENTE 
IF ENTE 
IF ENTE 
B148 



B153 

EVALUAT 
B156 



TYPE MODE CHECK 

TYPE MODE CHECK 
RED AT LB148, , 
RED WITH CARRY 
RED WITH CARRY 
TST VALTYP 
BCS LB14F 
BPL LB0E7 
SKP2 
LB0E7 
#12*2 
LAC46 



FCB 

BMI 



JMP 

EXPRESSION 
BSR LB1C6 



PSHS 
PSHS 
LDB 



#1 



B168 

CHECK 
B16A 



JSR 
JSR 
CLR 

JSR 



LAC33 

LB223 

TRELFL 

GETCCH 

FOR RELATIONAL OPE 

SUBA #$B2 

BCS LB181 

CMPA #3 

BCC LB181 

CMPA #1 

ROLA 

EORA 

CMPA 

BCS 

STA 

JSR 

BRA 



TRELFL 

TRELFL 

LB1DF 

TRELFL 

GETNCH 

LB16A 



BNE 
LBCC 



?EXTRA IGNORED MESSAGE 



BRANCH IF ARGUMENT GIVEN 

X = 0: DEFAULT FOR NO ARGUMENT 

EVALUATE AN ALPHA EXPRESSION 
SAVE VARIABLE DESCRIPTOR POINTER 
GO SCAN FOR FOR/NEXT DATA ON STACK 
BRANCH IF DATA FOUND 

NEXT WITHOUT FOR ERROR (SHOULD BE CLRB) 
PROCESS ERROR 

POINT S TO START OF FOR/NEXT DATA 
POINT X TO FP VALUE OF STEP 
COPY A FP NUMBER FROM (X) TO FPA0 
GET THE DIRECTION OF STEP 
SAVE IT AS THE SIGN OF FPA0 
POINT (X) TO INDEX VARIABLE DESCRIPTOR 
ADD (X) TO FPA0 (STEP TO INDEX) 
PACK FPA0 AND STORE IT IN ADDRESS 
CONTAINED IN VARDES 

POINT (X) TO TERMINAL VALUE OF INDEX 

COMPARE CURRENT INDEX VALUE TO TERMINAL VALUE OF INDEX 
ACCB = IF TERMINAL VALUE=CURRENT VALUE AND STEP=0 OR IF 
STEP IS POSITIVE AND CURRENT VALUE>TERMINAL VALUE OR 
STEP IS NEGATIVE AND CURRENT VALUE<TERMINAL VALUE 
BRANCH IF FOR/NEXT LOOP DONE 

* GET LINE NUMBER AND 

* BASIC POINTER OF 

* STATEMENT FOLLOWING THE 

* PROPER FOR STATEMENT 

JUMP BACK TO COMMAND INTEPR. LOOP 

PULL THE FOR-NEXT DATA OFF THE STACK 

GET CURRENT INPUT CHARACTER 

CHECK FOR ANOTHER ARGUMENT 

RETURN IF NONE 

GET NEXT CHARACTER FROM BASIC 

BSR SIMULATES A CALL TO NEXT FROM COMMAND LOOP 



EVALUATE EXPRESSION AND DO A TYPE CHECK FOR NUMERIC 

CLEAR CARRY FLAG 

OP CODE OF TST $1A01 - SKIP TWO BYTES (DO 

NOT CHANGE CARRY FLAG) 

SET CARRY 

IF ENTERED AT LB146 THEN VALTYP PLUS IS 'TM' ERROR 
IF ENTERED AT LB143 THEN VALTYP MINUS IS 'TM' ERROR 
TYPE CHECK IS DONE ON VALTYP 
ET, THEN 'TM' ERROR IF NUMERIC 
LEAR, THEN ' TM ' ERROR IF STRING. 

TEST TYPE FLAG; DO NOT CHANGE CARRY 

BRANCH IF STRING 

RETURN ON PLUS 

SKIP 2 BYTES - TM ERROR 

RETURN ON MINUS 

TYPE MISMATCH ERROR 
PROCESS ERROR 

BACK UP INPUT POINTER 

END OF OPERATION PRECEDENCE FLAG 

SKIP TWO BYTES 

SAVE FLAG (RELATIONAL OPERATOR FLAG) 

SAVE FLAG (PRECEDENCE FLAG) 

* SEE IF ROOM IN FREE RAM FOR (B) WORDS 
GO EVALUATE AN EXPRESSION 
RESET RELATIONAL OPERATOR FLAG 
GET CURRENT INPUT CHARACTER 

TOKEN FOR > 

BRANCH IF LESS THAN RELATIONAL OPERATORS 

* BRANCH IF GREATER THAN RELATIONAL OPERATORS 
SET CARRY IF > 
CARRY TO BIT 

* CARRY SET IF 

* TRELFL = ACCA 

BRANCH IF SYNTAX ERROR : == « OR » 

BIT 0: >, BIT 1 =, BIT 2: < SAVE DESIRED RELATIONAL COMPARISON 
GET AN INPUT CHARACTER 
CHECK FOR ANOTHER RELATIONAL OPERATOR 

GET RELATIONAL OPERATOR FLAG 
BRANCH IF RELATIONAL COMPARISON 
BRANCH IF > RELATIONAL OPERATOR 
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SEVEN ARITHMETIC/LOGICAL OPERATORS 

BRANCH IF NOT ARITHMETIC/LOGICAL OPERATOR 

ADD CARRY, NUMERIC FLAG AND MODIFIED TOKEN NUMB 

BRANCH IF VALTYP = FF, AND ACCA = + TOKEN - 

CONCATENATE THO STRINGS 

RESTORE ARITHMETIC/LOGICAL OPERATOR NUMBER 

* STORE OPERATOR NUMBER ON STACK; MULTIPLY IT B 

* THEN ADD THE STORED STACK DATA = MULTIPLY 

* X 3; 3 BYTE/TABLE ENTRY 

JUMP TABLE FOR ARITHMETIC & LOGICAL OPERATORS 
POINT X TO PROPER TABLE 
GET PRECEDENCE FLAG FROM STACK 
COMPARE TO CURRENT OPERATOR 

BRANCH IF STACK OPERATOR > CURRENT OPERATOR 
TM ERROR IF VARIABLE TYPE = STRING 



SAVE PRECEDENCE FLAG 

PUSH OPERATOR ROUTINE ADDRESS AND FPAB ONTO STACK 

GET POINTER TO ARITHMETIC/LOGICAL TABLE ENTRY FOR 

LAST CALCULATED OPERATION 

GET PRECEDENCE FLAG OF PREVIOUS OPERATION 

BRANCH IF NOT END OF OPERATION 

CHECK TYPE OF PRECEDENCE FLAG 

BRANCH IF END OF EXPRESSION OR SUB- EXPRESSION 

EVALUATE AN OPERATION 

BIT 7 OF TYPE FLAG TO CARRY 

SHIFT RELATIONAL FLAG LEFT - VALTYP TO BIT 

MOVE THE INPUT POINTER BACK ONE 

POINT X TO RELATIONAL COMPARISON JUMP TABLE 

SAVE RELATIONAL COMPARISON DATA 

SET VARIABLE TYPE TO NUMERIC 

PERFORM OPERATION OR SAVE ON STACK 

* GET BASIC S INPUT POINTER AND 

* MOVE IT BACK ONE 

RELATIONAL COMPARISON FLAG 
JUMP ADDRESS 

COMPARE PRECEDENCE OF LAST DONE OPERATION TO 

NEXT TO BE DONE OPERATION 

EVALUATE OPERATION IF LOHER PRECEDENCE 

PUSH OPERATION DATA ON STACK IF HIGHER PRECEDENCE 



PUSH OPERATOR EVALUATION ADDRESS AND FPA0 ONTO STACK AND EVALUATE ANOTHER EXPR 

GET ADDRESS OF OPERATOR ROUTINE 
SAVE IT ON THE STACK 
PUSH FPA0 ONTO STACK 
GET BACK RELATIONAL OPERATOR FLAG 
EVALUATE ANOTHER EXPRESSION 
SYNTAX ERROR 
EXPONENT 

S = LOU ORDER MANTISSA 
RETURN WITH PRECEDENCE CODE IN ACCA 

FP0SGN GET SIGN OF FPA0 MANTISSA 

,X GET PRECEDENCE CODE TO ACCA 

Y GET RETURN ADDRESS FROM STACK & PUT IT IN 

B SAVE ACCB ON STACK 

FP0EXP * PUSH FPA0 ONTO THE STACK 

FPA0 * 

FPA0+2 * 





ADDA 


#7 




BCC 


LB1F4 




ADCA 


VALTYP 




LBEQ 


LB60F 




ADCA 


#-1 




PSFIS 


A 




AS LA 






ADDA 


,s+ 




LDX 


#LAA51 




LEAX 


A,X 


;19F 


PULS 


A 




CMPA 


,K 




BCC 


LB1FA 




BSR 


LB143 


OPERATION BEING PROCESSED IS OF 


;1A7 


PSFIS 


A 




BSR 


LB1D4 




LDX 


RELPTR 




PULS 


A 




BNE 


LB1CE 




TSTA 






LBEQ 


LB220 




BRA 


LB203 


DO A 


RELATIONAL COMPARISON HERE 


1B8 


ASL 
ROLB 


VALTYP 




BSR 


LB1C6 




LDX 


#LB1CB 




STB 


TRELFL 




CLR 


VALTYP 




BRA 


LB19F 


;1C6 


LDX 


CHARAD 




JMP 


LAEBB 


RELATIONAL COMPARISON JUMP TABLE 


;1CB 


FCB 


$64 


ilCC 


FDB 


LB2F4 



BCC 


LB203 


BRA 


LB1A7 


RATOR 


EVALUAT 


LDD 


1,X 


PSFIS 


B,A 


BSR 


LB1E2 


LDB 


TRELFL 


LBRA 


LB15A 


JMP 


LB277 



PUSH FPA0 ONTO THE STACK. 
1-2, S =HIGH ORDER MANTISSA 
5,S = SIGN 
B1E2 LDE 



LDA 
PULS 

PSFIS 

LDB 

LDX 

LDU 

PSFIS 

JMP 



u,x, 



JUMP TO ADDRESS IN Y 



BRANCH HERE IF NON-OPERATOR CHARACTER FOUND - USUALLY ) OR END OF LINE 



LB201 
LB203 



LDX 

LDA 

BEQ 

CMPA 

BEQ 

JSR 

STX 

PULS 

CMPA 

BEQ 

CMPA 

BEQ 



,s+ 

LB220 

#$64 

LB201 

LB143 

RELPTR 

B 

#$5A 

LB222 

#$7D 

LB222 



POINT X TO DUMMY VALUE (ZERO) 
GET PRECEDENCE FLAG FROM STACK 
BRANCH IF END OF EXPRESSION 

* CHECK FOR RELATIONAL COMPARISON FLAG 

* AND BRANCH IF RELATIONAL COMPARISON 
TM ERROR IF VARIABLE TYPE = STRING 

SAVE POINTER TO OPERATOR ROUTINE 

GET RELATIONAL OPERATOR FLAG FROM STACK 

CHECK FOR NOT OPERATOR 

RETURN IF NOT - NO RELATIONAL COMPARISON 

CHECK FOR NEGATION (UNARY) FLAG 

RETURN IF NEGATION - NO RELATIONAL COMPARISON 



EVALUATE AN OPERATION. EIGHT BYTES HILL BE STORED ON STACK, FIRST SIX BYTES 
ARE A TEMPORARY FLOATING POINT RESULT THEN THE ADDRESS OF ROUTINE HHICH 
HILL EVALUATE THE OPERATION. THE RTS AT END OF ROUTINE HILL VECTOR 
TO EVALUATING ROUTINE. 



LSRB 

STB RELFLG 

PULS A,X,U 

STA FP1EXP 

STX FPA1 



ROTATE VALTYP BIT INTO CARRY 
FLAG AND SAVE NEH RELFLG 
PULL A FP VALUE OFF OF THE STACK 
AND SAVE IT IN FPA1 



COLOR BASIC UNRAVELLED II 



ORIGIN:SPECTRAL ASSOC 
REVISED:12/13/1999 WALTER K ZYDHEK 



2582 


B216 


DF 


5F 




2583 


B218 


35 


04 




2584 


B21A 


D7 


61 




2585 


B21C 


D8 


54 




2586 


B21E 


D7 


62 




2587 


B220 


D6 


4F 




2588 


B222 


39 






2589 










2590 


B223 


BD 


01 


8B 


2591 


B226 


0F 


06 




2592 


B228 


9D 


9F 




2593 


B22A 


24 


03 




2594 


B22C 


7E 


BD 


12 


2595 










2596 










2597 


B22F 


BD 


B3 


A2 


2598 


B232 


24 


50 




2599 


B234 


81 


2E 




2600 


B236 


27 


F4 




2601 


B238 


81 


AC 




2602 


B23A 


27 


40 




2603 


B23C 


81 


AB 




2604 


B23E 


27 


E3 




2605 


B240 


81 


22 




2606 


B242 


26 


0A 




2607 


B244 


9E 


A6 




2608 


B246 


BD 


B5 


18 


2609 


B249 


9E 


64 




2610 


B24B 


9F 


A6 




2611 


B24D 


39 






2612 


B24E 


81 


A8 




2613 


B250 


26 


0D 




2614 










2615 


B252 


86 


5A 




2616 


B254 


BD 


Bl 


5A 


2617 


B257 


BD 


B3 


ED 


2618 


B25A 


43 






2619 


B25B 


53 






2620 


B25C 


7E 


B4 


F4 


2621 


B25F 


4C 






2622 


B260 


27 


2E 




2623 


B262 


8D 


06 




2624 


B264 


BD 


Bl 


56 


2625 










2626 


B267 


C6 


29 




2627 


B269 


8C 






2628 


B26A 


C6 


28 




2629 


B26C 


8C 






2630 


B26D 


C6 


2C 




2631 


B26F 


El 


9F 


88 A6 


2632 


B273 


26 


02 




2633 


B275 


0E 


9F 




2634 


B277 


C6 


02 




2635 


B279 


7E 


AC 


46 


2636 










2637 










2638 


B27C 


86 


7D 




2639 


B27E 


BD 


Bl 


5A 


2640 


B281 


7E 


BE 


E9 


2641 










2642 










2643 


B284 


BD 


B3 


57 


2644 


B287 


9F 


52 




2645 


B289 


96 


06 




2646 


B28B 


26 


95 




2647 


B28D 


7E 


BC 


14 


2648 










2649 










2650 


B290 


9D 


9F 




2651 


B292 


IF 


89 




2652 


B294 


58 






2653 


B295 


9D 


9F 




2654 


B297 


CI 


26 




2655 


B299 


23 


04 




2656 


B29B 


6E 


9F 


01 32 


2657 


B29F 


34 


04 




2658 


B2A1 


CI 


1C 




2659 


B2A3 


25 


22 




2660 


B2A5 


CI 


24 




2661 


B2A7 


24 


20 




2662 


B2A9 


8D 


BF 




2663 


B2AB 


A6 


E4 




2664 


B2AD 


81 


22 




2665 


B2AF 


24 


18 




2666 










2667 


B2B1 


BD 


Bl 


56 


2668 


B2B4 


8D 


B7 




2669 


B2B6 


BD 


Bl 


46 


2670 


B2B9 


35 


a 2 





B220 
B222 



STU 

PULS 

STB 

EORB 

STB 

LDB 



FP1SGN 
FPBSGN 
RESSGN 
FPBEXP 



LB223 JSR RVEC15 

CLR VALTYP 

JSR GETNCH 

BCC LB22F 

LB22C JMP LBD12 

* PROCESS A NON NUMERIC FIRST CHARACTER 
LB22F 



LB244 
LB249 



BCC 

CHPA 

BEQ 

CHPA 

BEQ 

CHPA 

BEQ 

CHPA 

BNE 

LDX 

JSR 

LDX 

STX 

RTS 

CHPA 

BNE 



LB3A2 

LB284 

#'. 

LB22C 

#$AC 

LB27C 

#$AB 

LB223 

#"' 

LB24E 

CHARAD 

LB518 

COEFPT 

CHARAD 



LB24E 

* PROCESS THE NOT OPERATOR 



LB25F 
LB262 



LB26D 
LB26F 



LDA 
JSR 
JSR 

COHA 
COMB 

JMP 

INCA 

BEQ 

BSR 



#$5A 

LB15A 

INTCNV 



GIVABF 

LB298 
LB26A 
LB156 

#') 

SKP2 

#'( 

SKP2 

#' , 

[CHARAD] 

LB277 

GETNCH 

#2*1 

LAC46 



PROCESS THE MINUS (UNARY) OPERATOR 
B27C LDA #$7D 
JSR LB15A 
JMP LBEE9 

EVALUATE ALPHA EXPRESSION 



CMPB 

BNE 

JMP 



284 


JSR 


LB357 




STX 


FPA8+2 




LDA 


VALTYP 




BNE 


LB222 




JMP 


LBC14 


EVALUATING A 


SECONDARY TOKEN 


.290 


JSR 


GETNCH 




TFR 


A,B 




AS LB 






JSR 


GETNCH 




CMPB 


#2*19 




BLS 


LB29F 




JMP 


[COMVEC+18] 


.29F 


PSHS 


B 




CMPB 


#2*14 




BCS 


LB2C7 




CMPB 


#2*18 




BCC 


LB2C9 




BSR 


LB26A 




LDA 


,S 




CMPA 


#2*17 




BCC 


LB2C9 


DO SECONDARIES $8E, $8F, $98 (LEFTS 




JSR 


LB156 




BSR 


LB26D 




JSR 


LB146 




PULS 


A 



= GET MANTISSA SIGN AND 

= SAVE IT IN FPA1 

EOR IT WITH FPA1 MANTISSA SIGN 

SAVE IT IN RESULT SIGN BYTE 

GET EXPONENT OF FPA8 



HOOK INTO RAM 

INITIALIZE TYPE FLAG TO NUMERIC 

GET AN INPUT CHAR 

BRANCH IF NOT NUMERIC 

CONVERT ASCII STRING TO FLOATING POINT 

RETURN RESULT IN FPAB 

SET CARRY IF NOT ALPHA 

BRANCH IF ALPHA CHARACTER 

IS IT . (DECIMAL POINT)? 

CONVERT ASCII STRING TO FLOATING POINT 

MINUS TOKEN 

YES - GO PROCESS THE MINUS OPERATOR 

PLUS TOKEN 

YES - GET ANOTHER CHARACTER 

STRING DELIMITER? 

NO 

CURRENT BASIC POINTER TO X 

SAVE STRING ON STRING STACK 

* GET ADDRESS OF END OF STRING AND 

* PUT BASIC S INPUT POINTER THERE 



NOT TOKEN? 



NOT PRECEDENCE FLAG 
PROCESS OPERATION FOLLOWING NOT 
CONVERT FPAB TO INTEGER IN ACCD 

* NOT THE INTEGER 

CONVERT ACCD TO FLOATING POINT (FPAB) 

CHECK FOR TOKENS PRECEEDED BY 5FF 

IT HAS PRECEEDED BY 5FF 

SYNTAX CHECK FOR A ( 

EVALUATE EXPRESSIONS WITHIN PARENTHESES AT 

HIGHEST PRECEDENCE 

SYNTAX CHECK FOR ) 

SKIP 2 BYTES 

SYNTAX CHECK FOR < 

SKIP 2 BYTES 

SYNTAX CHECK FOR COMMA 

* COMPARE ACCB TO CURRENT INPUT 

* CHARACTER - SYNTAX ERROR IF NO MATCH 
GET A CHARACTER FROM BASIC 

SYNTAX ERROR 

JUMP TO ERROR HANDLER 



MINUS (UNARY) PRECEDENCE FLAG 
PROCESS OPERATION FOLLOWING UNARY 
CHANGE SIGN OF FPAB MANTISSA 



FIND THE DESCRIPTOR ADDRESS OF A V 

SAVE DESCRIPTOR ADDRESS IN FPAB 

TEST VARIABLE TYPE 

RETURN IF STRING 

COPY A FP NUMBER FROM (X) TO FPAB 



GET AN INPUT CHARACTER (SECONDARY TOKEN) 

SAVE IT IN ACCB 

X2 * BET RID OF BIT 7 

GET ANOTHER INPUT CHARACTER 

19 SECONDARY FUNCTIONS IN BASIC 

BRANCH IF COLOR BASIC TOKEN 

JUMP TO EXBAS SECONDARY TOKEN HANDLER 

SAVE TOKEN OFFSET ON STACK 

CHECK FOR NUMERIC ARGUMENT TOKEN 

DO SECONDARIES $8D (JOYSTK) OR LESS 

* DO SECONDARIES $92 (INKEY$) OR > 
SYNTAX CHECK FOR A < 
GET TOKEN NUMBER 
CHECK FOR POINT COMHAND 
DO POINT COHHAND ($91) 
RIGHT$, HID$) 

EVALUATE FIRST STRING IN ARGUHENT 
SYNTAX CHECK FOR A COHHA 

TM ERROR IF NUMERIC VARIABLE 
GET TOKEN OFFSET FROM STACK 



COLOR BASIC UNRAVELLED II 
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2671 


B2BB 


DE 


52 




2672 


B2BD 


34 


42 




2673 


B2BF 


BD 


B7 


0B 


2674 


B2C2 


35 


02 




2675 


B2C4 


34 


06 




2676 


B2C6 


8E 






2677 


B2C7 


80 


99 




2678 


B2C9 


35 


04 




2679 


B2CB 


BE 


01 


28 


2680 


B2CE 


3A 






2681 










2682 










2683 


B2CF 


AD 


94 




2684 


B2D1 


7E 


Bl 


43 


2685 










2686 










2687 


B2D4 


86 






2688 










2689 










2690 


B2D5 


4F 






2691 


B2D6 


97 


03 




2692 


B2D8 


BD 


B3 


ED 


2693 


B2DB 


DD 


01 




2694 


B2DD 


BD 


BC 


4A 


2695 


B2E0 


BD 


B3 


ED 


2696 


B2E3 


0D 


03 




2697 


B2E5 


26 


06 




2698 


B2E7 


94 


01 




2699 


B2E9 


D4 


02 




2700 


B2EB 


20 


04 




2701 


B2ED 


9A 


01 




2702 


B2EF 


DA 


02 




2703 


B2F1 


7E 


B4 


F4 


2704 










2705 










2706 


B2F4 


BD 


Bl 


48 


2707 


B2F7 


26 


10 




2708 


B2F9 


96 


61 




2709 


B2FB 


8A 


71 




2710 


B2FD 


94 


50 




2711 


B2FF 


97 


5D 




2712 


B301 


8E 


00 


5C 


2713 


B304 


BD 


BC 


96 


2714 


B307 


20 


36 




2715 










2716 










2717 


3309 


0F 


06 




2718 


B30B 


0A 


3F 




2719 










2720 


B30D 


BD 


B6 


57 


2721 










2722 


B310 


D7 


56 




2723 


B312 


9F 


58 




2724 


B314 


9E 


5F 




2725 


B316 


BD 


B6 


59 


2726 


B319 


96 


56 




2727 


B31B 


34 


04 




2728 


B31D 


A0 


E0 




2729 


B31F 


27 


07 




2730 


B321 


86 


01 




2731 


B323 


24 


03 




2732 


B325 


D6 


56 




2733 


B327 


40 






2734 


B328 


97 


54 




2735 


B32A 


DE 


58 




2736 


B32C 


5C 






2737 










2738 


B32D 


5A 






2739 


B32E 


26 


04 




2740 


B330 


D6 


54 




2741 


B332 


20 


0B 




2742 


B334 


A6 


80 




2743 


B336 


Al 


C0 




2744 


B338 


27 


F3 




2745 


B33A 


C6 


FF 




2746 


B33C 


24 


01 




2747 


B33E 


50 






2748 










2749 










2750 


B33F 


CB 


01 




2751 


B341 


59 






2752 


B342 


D4 


0A 




2753 










2754 


B344 


27 


02 




2755 


B346 


C6 


FF 




2756 


B348 


7E 


BC 


7C 


2757 










2758 










2759 


B34B 


BD 


B2 


60 





LDU 


FPA0+2 




PSFIS 


U,A 




JSR 


LB70B 




PULS 


A 




PSFIS 


B,A 




FCB 


$8E 


LB2C7 


BSR 


LB262 


LB2C9 


PULS 


B 




LDX 


COMVEC+8 


LB2CE 


ABX 




* HERE 


IS WHERE 


HE BRANCH TO 




JSR 


[,X] 




JHP 


LB143 



POINT U TO STRING DESCRIPTOR 

SAVE TOKEN OFFSET AND DESCRIPTOR ADDRESS 

EVALUATE FIRST NUMERIC ARGUMENT 

GET TOKEN OFFSET FROM STACK 

SAVE TOKEN OFFSET AND NUMERIC ARGUMENT 

OP CODE OF LDX# - SKI P 2 BYTES 

SYNTAX CHECK FOR A < 

GET TOKEN OFFSET 

GET SECONDARY FUNCTION JUMP TABLE ADDRESS 

ADD IN COMMAND OFFSET 

SECONDARY FUNCTION 

GO DO AN SECONDARY FUNCTION 
TM ERROR IF VARIABLE TYPE = STRING 



LOGICAL OPERATOR OR JUMPS HERE 
B2D4 FCB SKP1LD 



OPERAT 


"OR AND JUMPS HERE 


CLRA 




STA 


TMPLOC 


JSR 


INTCNV 


STD 


CHARAC 


JSR 


LBC4A 


JSR 


INTCNV 


TST 


TMPLOC 


BNE 


LB2ED 


ANDA 


CHARAC 


ANDB 


ENDCHR 


BRA 


LB2F1 


ORA 


CHARAC 


ORB 


ENDCHR 


JMP 


GIVABF 


AL COMPARISON PROCESS HANI 


JSR 


LB148 


BNE 


LB309 


LDA 


FP1SGN 


ORA 


#»7F 


ANDA 


FPA1 


STA 


FPA1 


LDX 


#FP1EXP 


JSR 


LBC96 


BRA 


LB33F 



RELATIONAL COMPARISON OF STRINGS 
B309 CLR VALTYP 
DEC TRELFL 

JSR LB657 



STB 

STX 

LDX 

JSR 

LDA 

PSFIS 

SUBA 

BEQ 

LDA 

BCC 

LDB 

NEGA 

B328 STA 
LDU 
INCB 
ENTER WITH ACCI 

B32D DECB 
BNE 



STRDES 

STRDES+2 

FPA1+2 

LB659 

STRDES 



LB328 
STRDES 



FP0SGN 
STRDES+2 



BRA 

LDA 

CMPA 

BEQ 

LDB 

BCC 



CONTAINING LENGTH OF 

LB334 

FP0SGN 

LB33F 

,X+ 

,U+ 

LB32D 

#$FF 

LB33F 



SKIP ONE BYTE 



AND FLAG = 

AND/OR FLAG 

CONVERT FPAB INTO AN INTEGER IN ACCD 

TEMP SAVE ACCD 

MOVE FPA1 TO FPA0 

CONVERT FPAB INTO AN INTEGER IN ACCD 

CHECK AND/OR FLAG 

BRANCH IF OR 

* AND ACCD WITH FPAB INTEGER 

* STORED IN ENDCHR 
CONVERT TO FP 

* OR ACCD WITH FPAB INTEGER 

* STORED IN CHARAC 

CONVERT THE VALUE IN ACCD INTO A FP NUMBER 



TM ERROR IF TYPE MISMATCH 
BRANCH IF STRING VARIABLE 

* PACK THE MANTISSA 

* SIGN OF FPA1 INTO 

* BIT 7 OF THE 

* MANTISSA MS BYTE 
POINT X TO FPA1 
COMPARE FPAB TO FPA1 

CHECK TRUTH OF RELATIONAL COMPARISON 



SET VARIABLE TYPE TO NUMERIC 

REMOVE STRING TYPE FLAG (BITB=1 FOR STRINGS) FROM THE 

DESIRED RELATIONAL COMPARISON DATA 

GET LENGTH AND ADDRESS OF STRING WHOSE 

DESCRIPTOR ADDRESS IS IN THE BOTTOM OF FPAB 

* SAVE LENGTH AND ADDRESS IN TEMPORARY 

* DESCRIPTOR (STRING B) 

= RETURN LENGTH AND ADDRESS OF STRING 
= WHOSE DESCRIPTOR ADDRESS IS STORED IN FPA1+2 
LOAD ACCA WITH LENGTH OF STRING B 
SAVE LENGTH A ON STACK 
SUBTRACT LENGTH A FROM LENGTH B 
BRANCH IF STRINGS OF EQUAL LENGTH 
TRUE FLAG 

TRUE IF LENGTH B > LENGTH A 
LOAD ACCB WITH LENGTH B 
SET FLAG = FALSE (IFF) 
SAVE TRUE/FALSE FLAG 
POINT U TO START OF STRING 
COMPENSATE FOR THE DECB BELOW 
SHORTER STRING 

DECREMENT SHORTER STRING LENGTH 

BRANCH IF ALL OF STRING NOT COMPARED 

GET TRUE/FALSE FLAB 

CHECK TRUTH OF RELATIONAL COMPARISON 

GET A BYTE FROM STRING A 

COMPARE TO STRING B 

CHECK ANOTHER CHARACTER IF = 

FALSE FLAG IF STRING A > B 

BRANCH IF STRING A > STRING B 

SET FLAG = TRUE 



DETERMINE TRUTH OF COMPARISON 



LB33F 


ADDB 
ROLB 


#1 




ANDB 


RELFLi 




BEQ 


LB348 




LDB 


#$FF 


LB348 


JMP 


LBC7C 


* DIM 






LB34B 


JSR 


LB26D 



,1,2 



RETURN RESULT IN FPAB 

CONVERT $FF,B,1 TO 

NOW IT S 1,2,4 FOR > = < 

AND THE ACTUAL COMPARISON WITH THE DESIRED 
COMPARISON 

BRANCH IF FALSE (NO MATCHING BITS) 
TRUE FLAG 
CONVERT ACCB INTO FP NUMBER IN FPAB 



SYNTAX CHECK FOR COMMA 



COLOR BASIC UNRAVELLED II 
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2760 


B34E 


C6 


01 


2761 


B350 


80 


08 


2762 


B352 


9D 


A5 


2763 


B354 


26 


F5 


2764 


B356 


39 




2765 








2766 








2767 








2768 








2769 








2770 








2771 








2772 








2773 








2774 








2775 








2776 








2777 


B357 


5F 




2778 


B358 


9D 


A5 


2779 


B35A 


D7 


05 


2780 


B35C 


97 


37 


2781 








2782 


B35E 


9D 


A5 


2783 


B360 


8D 


40 


2784 


B362 


10 


25 FF 11 


2785 


B366 


5F 




2786 


B367 


D7 


06 


2787 


B369 


9D 


9F 


2788 


B36B 


25 


04 


2789 








2790 


B36D 


8D 


33 


2791 


B36F 


25 


0A 


2792 


B371 


IF 


89 


2793 








2794 








2795 








2796 


B373 


9D 


9F 


2797 


B375 


25 


FC 


2798 


B377 


8D 


29 


2799 


B379 


24 


F8 


2800 


B37B 


81 


24 


2801 


B37D 


26 


06 


2802 


B37F 


03 


06 


2803 


B381 


CB 


80 


2804 


B383 


9D 


9F 


2805 


B385 


D7 


38 


2806 


B387 


9A 


08 


2807 








2808 


B389 


80 


28 


2809 > B38B 


10 


27 00 75 
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B38F 


0F 


08 


2811 
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9E 


IB 


2812 


B393 


DC 


37 


2813 


B395 


9C 


ID 


2814 


B397 


27 


12 


2815 


B399 


10 


A3 81 


2816 


B39C 


27 


3E 


2817 


B39E 


30 


05 


2818 


B3A0 


20 


F3 


2819 








2820 








2821 


B3A2 


81 


41 


2822 


B3A4 


25 


04 


2823 


B3A6 


80 


5B 


2824 


B3A8 


80 


A5 


2825 


B3AA 


39 




2826 








2827 


B3AB 


8E 


00 8A 


2828 


B3AE 


EE 


E4 


2829 


B3B0 


11 


83 B2 87 


2830 


B3B4 


27 


28 


2831 


B3B6 


DC 


IF 


2832 


B3B8 


DD 


43 


2833 


B3BA 


C3 


00 07 


2834 


B3BD 


DD 


41 


2835 


B3BF 


9E 


ID 


2836 


B3C1 


9F 


47 


2837 


B3C3 


BD 


AC IE 


2838 








2839 


B3C6 


9E 


41 


2840 


B3C8 


9F 


IF 


2841 


B3CA 


9E 


45 


2842 


B3CC 


9F 


ID 


2843 


B3CE 


9E 


47 


2844 


B3O0 


DC 


37 


2845 


B3D2 


ED 


81 


2846 


B3D4 


4F 




2847 


B3D5 


5F 




2848 


B3D6 


ED 


84 



* EVALUAT 

* VARPTR 

* EACH VA 

* BYTES A 

* BYTES A 

* FIRST B 

* VARIA 

* THE SEC 

* VARIAI 

* IS NUME 

* IF THE 

* INSERTE 
LB357 



* ENTRY 
LB35C 



LDB 

BSR 

JSR 

BNE 

RTS 

E A VA 

POINTIN 

IABLE 

E THE 

E THE 
YTE OF 
IS A 
OND BY 
IS A 
RIC. 
VARIABL 
D INTO 

CLRB 

JSR 

STB 

STA 
POINT FO 

JSR 

BSR 

LBCS 

CLRB 

STB 

JSR 

BCS 



LB35A 
GETCCH 



IABLE - RETU 
TO VARIABL 
REQUIRES 
VARIABLE NAM 
DESCRIPTOR 
VARIABLE NAM 
DEF FN VARIA 
E OF VARIA 
STRING, OTHE 

IS NOT FOU 
THE VARIABLE 



DIMENSION FLAG 

SAVE ARRAY SPACE FOR THIS VARIABLE 

GET CURRENT INPUT CHARACTER 

KEEP DIMENSIONING IF NOT END OF LINE 



X AND 

DESCRIPTOR 
YTES - THE FIRST TWO 

AND THE NEXT 5 
IF BIT 7 OF THE 

IS SET, THE 
BLE. IF BIT 7 OF 

NAME IS SET, THE 
RHISE THE VARIABLE 

ID, A ZERO VARIABLE IS 
SPACE 



GETCCH 
DIMFLG 
VARNAM 

R DEF FN VARIABLE SEARCH 
GETCCH 
LB3A2 
LB277 



DIMENSION FLAG = 0; DO NOT SET UP AN ARRAY 
GET CURRENT INPUT CHARACTER 
SAVE ARRAY FLAG 
SAVE INPUT CHARACTER 



VALTYP 
GETNCH 
LB371 



BSR LB3A2 

BCS LB37B 

B371 TFR A,B 

READ INPUT CHARACTERS UNTI 

NON NUMERIC IS FOUND - IGN 

IN VARIABLE NAME AFTER THE 



NON 
ORE ALL 
1ST THi 



JSR 
BCS 
BSR 
BCC 

CMPA 

BNE 

COM 

ADDB 

JSR 

STB 

ORA 

SUBA 
LBEQ 
CLR 
LDX 

LDD 

CMPX 

BEQ 

CMPD 

BEQ 

LEAX 

BRA 



GETNCH 

LB373 

LB3A2 

LB373 

#'$ 

LB385 

VALTYP 

#$80 

GETNCH 

VARNAM+ 

ARYDIS 



ARYDIS 
VARTAB 
VARNAM 
ARYTAB 
LB3AB 



GET CURRENT INPUT CHARACTER 

SET CARRY IF NOT ALPHA 

SYNTAX ERROR IF NOT ALPHA 

DEFAULT 2ND VARIABLE CHARACTER TO ZERO 

SET VARIABLE TYPE TO NUMERIC 

GET ANOTHER CHARACTER FROM BASIC 

BRANCH IF NUMERIC (2ND CHARACTER IN 

VARIABLE MAY BE NUMERIC) 

SET CARRY IF NOT ALPHA 

BRANCH IF NOT ALPHA 

SAVE 2ND CHARACTER IN ACCB 
ALPHA OR 
CHARACTERS 

GET AN INPUT CHARACTER 

BRANCH IF NUMERIC 

SET CARRY IF NOT ALPHA 

BRANCH IF ALPHA 

CHECK FOR A STRING VARIABLE 

BRANCH IF IT IS NOT A STRING 

SET VARIABLE TYPE TO STRING 

SET BIT 7 OF 2ND CHARACTER (STRING) 

GET AN INPUT CHARACTER 

SAVE 2ND CHARACTER IN VARNAM+1 

OR IN THE ARRAY DISABLE FLAG - IF = $80, 

DON T SEARCH FOR VARIABLES IN THE ARRAYS 

IS THIS AN ARRAY VARIABLE? 

BRANCH IF IT IS 

RESET THE ARRAY DISABLE FLAG 

POINT X TO THE START OF VARIABLES 

GET VARIABLE IN QUESTION 

COMPARE X TO THE END OF VARIABLES 

BRANCH IF END OF VARIABLES 

* COMPARE VARIABLE IN QUESTION TO CURRENT 

* VARIABLE AND BRANCH IF MATCH 

= MOVE POINTER TO NEXT VARIABLE AND 
= KEEP LOOKING 



SET CARRY IF NOT UPPER CASE ALPHA 



LB3A2 


CMPA 


#'A 




BCS 


LB3AA 




SUBA 


#'Z+1 




SUBA 


#-< 'Z+l) 


LB3AA 


RTS 




* PUT A 


NEW VARIABLE IN TABLE OF VARIABLES 


LB3AB 


LDX 


#ZERO 




LDU 


,s 




CMPU 


#LB287 




BEQ 


LB3DE 




LDD 


ARYEND 




STD 


V43 




ADDD 


#7 




STD 


V41 




LDX 


ARYTAB 




STX 


V47 




JSR 


LAC IE 




LDX 


V41 




STX 


ARYEND 




LDX 


V45 




STX 


ARYTAB 




LDX 


V47 




LDD 


VARNAM 




STD 


,X++ 




CLRA 






CLRB 






STD 


,x 



CARRY SET IF < A 



CARRY CLEAR IF 



POINT X TO ZERO LOCATION 

GET CURRENT RETURN ADDRESS 

DID HE COME FROM EVALUATE ALPHA EXPR ? 

YES - RETURN A ZERO VALUE 

* GET END OF ARRAYS ADDRESS AND 

* SAVE IT AT V43 

= ADD 7 TO END OF ARRAYS (EACH 

= VARIABLE = 7 BYTES) AND SAVE AT V41 

* GET END OF VARIABLES AND SAVE AT V47 

MAKE A SEVEN BYTE SLOT FOR NEW VARIABLE AT 

TOP OF VARIABLES 

= GET NEW END OF ARRAYS AND SAVE IT 

* GET NEW END OF VARIABLES AND SAVE IT 

GET OLD END OF VARIABLES 
GET NEW VARIABLE NAME 
SAVE VARIABLE NAME 

* ZERO OUT THE FP VALUE OF THE NUMERIC 

* VARIABLE OR THE LENGTH AND ADDRESS 

* OF A STRING VARIABLE 
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2849 


B3D8 


ED 


02 
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B3DA 


A7 


04 
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9F 


39 


2852 


B3DE 


39 




2853 








2854 


B3DF 


90 


80 00 


2855 








2856 








2857 


B3E4 


9D 


9F 


2858 


B3E6 


BD 


Bl 41 


2859 


B3E9 


96 


54 


2860 


B3EB 


2B 


5D 


2861 








2862 








2863 


B3ED 


BD 


Bl 43 


2864 


B3F0 


96 


4F 


2865 


B3F2 


81 


90 


2866 


B3F4 


25 


08 


2867 


B3F6 


8E 


B3 DF 


2868 


B3F9 


BD 


BC 96 


2869 


B3FC 


26 


4C 


2870 


B3FE 


BD 


BC C8 


2871 


B401 


DC 


52 


2872 


B403 


39 




2873 








2874 


B404 


DC 


05 


2875 


B406 


34 


06 


2876 


B408 


12 




2877 


B409 


5F 




2878 


B40A 


9E 


37 


2879 


B40C 


34 


14 


2880 


B40E 


8D 


D4 


2881 


B410 


35 


34 


2882 








2883 


B412 


9F 


37 


2884 


B414 


DE 


52 


2885 


B416 


34 


60 


2886 


B418 


5C 




2887 


B419 


9D 


A5 


2888 


B41B 


81 


2C 


2889 


B41D 


27 


EB 


2890 


B41F 


D7 


03 


2891 


B421 


BD 


B2 67 


2892 


B424 


35 


06 


2893 


B426 


DD 


05 


2894 


B428 


9E 


ID 


2895 


B42A 


9C 


IF 


2896 


B42C 


27 


21 


2897 


B42E 


DC 


37 


2898 


B430 


10 


A3 84 


2899 


B433 


27 


06 


2900 


B435 


EC 


02 


2901 


B437 


30 


8B 


2902 


B439 


20 


EF 


2903 


B43B 


C6 


12 


2904 


B430 


96 


05 


2905 


B43F 


26 


0B 


2906 


B441 


D6 


03 


2907 


B443 


El 


04 


2908 


B445 


27 


59 


2909 


B447 


C6 


10 


2910 


B449 


8C 




2911 


B44A 


C6 


08 


2912 


B44C 


7E 


AC 46 


2913 








2914 








2915 








2916 








2917 








2918 








2919 








2920 








2921 








2922 








2923 


B44F 


CC 


00 05 


2924 


B452 


DD 


64 


2925 


B454 


DC 


37 


2926 


B456 


ED 


84 


2927 


B458 


D6 


03 


2928 


B45A 


E7 


04 


2929 


B45C 


BD 


AC 33 


2930 


B45F 


9F 


41 


2931 


B461 


C6 


0B 


2932 


B463 


4F 




2933 


B464 


0D 


05 


2934 


B466 


27 


05 


2935 


B468 


35 


06 


2936 


B46A 


C3 


00 01 


2937 


B46D 


ED 


05 





STD 


2,X 




STA 


4,X 


LB3DC 


STX 


VARPTR 


LB3DE 


RTS 





FCB $90, $80, $00, $00, $0 



LB3E4 


JSR 


GETNCH 


LB3E6 


JSR 


LB141 


LB3E9 


LDA 


FP0SGN 




BMI 


LB44A 


* CONVERT 


FPA0 


TO A SIGNED TMO 


INTCNV 


JSR 


LB143 




LDA 


FP0EXP 




CHPA 


#$90 




BCS 


LB3FE 




LDX 


#LB3DF 




JSR 


LBC96 




BNE 


LB44A 


LB3FE 


JSR 


LBCC8 




LDD 


FPA0+2 




RTS 




* EVALUATE AN ARRAY VARIABLE 


LB404 


LDD 


DIMFLG 




PSHS 


B,A 




NOP 






CLRB 




LB40A 


LDX 


VARNAM 




PSHS 


X,B 




BSR 


LB3E4 




PULS 


B,X,V 




STX 


VARNAM 




LDU 


FPA0+2 




PSHS 


U,Y 




INCB 






JSR 


GETCCH 




CHPA 


#' . 




BEQ 


LB40A 




STB 


TMPLOC 




JSR 


LB267 




PULS 


A,B 




STD 


DIMFLG 




LDX 


ARYTAB 


LB42A 


CHPX 


ARYEND 




BEO 


LB44F 




LDD 


VARNAM 




CHPD 


,x 




BEQ 


LB43B 




LDD 


2,X 




LEAX 


D,X 




BRA 


LB42A 


LB43B 


LDB 


#2*9 




LDA 


DIMFLG 




BNE 


LB44C 




LDB 


TMPLOC 




CHPB 


4,X 




BEO 


LB4A0 


LB447 


LDB 


#8*2 




FCB 


SKP2 


LB44A 


LDB 


#4*2 


LB44C 


JHP 


LAC46 



STORE ADDRESS OF VARIABLE VALUE 



* FLOATING POINT -32768 
SMALLEST SIGNED TWO BYTE INTEGER 

GET AN INPUT CHARACTER FROM BASIC 
GO EVALUATE NUMERIC EXPRESSION 
GET FPA0 MANTISSA SIGN 
FC ERROR IF NEGATIVE NUMBER 

BYTE INTEGER; RETURN VALUE IN ACCD 

TM ERROR IF STRING VARIABLE 
GET FPA0 EXPONENT 

* COMPARE TO 32768 - LARGEST INTEGER EXPONENT AND 

* BRANCH IF FPA0 < 32768 
POINT X TO FP VALUE OF -32768 
COMPARE -32768 TO FPA0 

FC ERROR IF NOT = 
CONVERT FPA0 TO A TWO BYTE INTEGER 
GET THE INTEGER 



GET ARRAY FLAG AND VARIABLE TYPE 

SAVE THEM ON STACK 

DEAD SPACE CAUSED BY 1.2 REVISION 

RESET DIMENSION COUNTER 

GET VARIABLE NAME 

SAVE VARIABLE NAME AND DIMENSION COUNTER 

EVALUATE EXPRESSION (DIMENSION LENGTH) 

PULL OFF VARIABLE NAME, DIMENSION COUNTER, 

ARRAY FLAG 

SAVE VARIABLE NAME AND VARIABLE TYPE 

GET DIMENSION LENGTH 

SAVE DIMENSION LENGTH, ARRAY FLAG, VARIABLE TYPE 

INCREASE DIMENSION COUNTER 

GET CURRENT INPUT CHARACTER 

CHECK FOR ANOTHER DIMENSION 

BRANCH IF MORE 

SAVE DIMENSION COUNTER 

SYNTAX CHECK FOR A ) 

* RESTORE VARIABLE TYPE AND ARRAY 

* FLAG - LEAVE DIMENSION LENGTH ON STACK 
GET START OF ARRAYS 

COMPARE TO END OF ARRAYS 
BRANCH IF NO MATCH FOUND 
GET VARIABLE IN QUESTION 
COMPARE TO CURRENT VARIABLE 
BRANCH IF = 

GET OFFSET TO NEXT ARRAY VARIABLE 
ADD TO CURRENT POINTER 
KEEP SEARCHING 
REDIMENSIONED ARRAY ERROR 

* TEST ARRAY FLAG - IF <>0 YOU ARE TRYING 

* TO REDIMENSION AN ARRAY 

GET NUMBER OF DIMENSIONS IN ARRAY 
COMPARE TO THIS ARRAYS DIMENSIONS 
BRANCH IF = 

BAD SUBSCRIPT 
SKIP TWO BYTES 

ILLEGAL FUNCTION CALL 
JUMP TO ERROR SERVICING ROUTINE 



INSERT A NEK ARRAY INTO ARRAY VARIABLES 
EACH SET OF ARRAY VARIABLES IS PRECEEDED BY A DE- 
SCRIPTOR BLOCK COMPOSED OF 5+2*N BYTES WHERE N IS THE 
NUMBER OF DIMENSIONS IN THE ARRAY. THE BLOCK IS DEFINED 
AS FOLLOWS: BYTES 0,1:VARIABLE S NAME; 2,3:T0TAL LENGTH 
OF ARRAY ITEMS AND DESCRIPTOR BLOCK; 4:NUMBER OF DIMEN- 
SIONS; 5,6:LENGTH OF DIMENSION 1; 7,8:LENGTH OF DIMEN- 
SION 2; 4+N,5+N:LENGTH OF DIMENSION N. 



LDD 


#5 


STD 


COEFPT 


LDD 


VARNAM 


STD 


,x 


LDB 


TMPLOC 


STB 


4,X 


JSR 


LAC33 


STX 


V41 


LDB 


#11 


CLRA 




TST 


DIMFLG 


BEQ 


LB46D 


PULS 


A,B 


ADDD 


#1 


STD 


5,X 



* 5 BYTES/ARRAY ENTRY SAVE AT COEFPT 

= GET NAME OF ARRAY AND SAVE IN 

= FIRST 2 BYTES OF DESCRIPTOR 

GET NUMBER OF DIMENSIONS AND SAVE IN 

* 5TH BYTE OF DESCRIPTOR 

CHECK FOR ROOM FOR DESCRIPTOR IN FREE RAM 
TEMPORARILY SAVE DESCRIPTOR ADDRESS 

* DEFAULT DIMENSION VALUE:X(10) 

= CHECK ARRAY FLAG AND BRANCH IF 

= NOT DIMENSIONING AN ARRAY 

GET DIMENSION LENGTH 

ADD ONE <X(0) HAS A LENGTH OF ONE) 

SAVE LENGTH OF ARRAY DIMENSION 
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B4C9 


30 


05 


2988 


B4CB 


9F 


39 


2989 


B4CD 


39 




2990 








2991 








2992 


B4CE 


86 


10 


2993 


B4D0 


97 


45 


2994 


B4D2 


EC 


05 


2995 


B4D4 


DD 


17 


2996 


B4D6 


4F 




2997 


B4D7 


5F 




2998 


B4D8 


58 




2999 


B4D9 


49 




3000 


B4DA 


25 


0F 


3001 


B4DC 


08 


65 


3002 


B4DE 


09 


64 


3003 


B4E0 


24 


04 


3004 


B4E2 


D3 


17 


3005 


B4E4 


25 


05 


3006 


B4E6 


0A 


45 


3007 


B4E8 


25 


EE 



STD 


COEFPT 


LEAX 


2,X 


DEC 


TMPLOC 


BNE 


LB461 


STX 


TEMPTR 


ADDD 


TEMPTR 


LBCS 


LAC44 


TFR 


D,X 


JSR 


LAC37 


SUBD 


#STKBUF-5 


STD 


ARYEND 


CLRA 




LB48C LEAX 


-1,X 


STA 


5,X 


CHPX 


TEMPTR 


BNE 


LB48C 


LDX 


V41 


LDA 


ARYEND 


SUBD 


U41 


STD 


2,X 


LDA 


DIMFLG 


BNE 


LB4CD 


* CALCULATE POINTER TO CORRECT ELEMENT 


LB4A0 LDB 


4,X 



MULTIPLY ACCUM ARRAY SIZE NUMBER LENGTH 

OF NEW DIMENSION 

TEMP STORE NEW CURRENT ACCUMULATED ARRAY SIZE 

BUMP POINTER UP TWO 

* DECREMENT DIMENSION COUNTER AND BRANCH IF 

* NOT DONE WITH ALL DIMENSIONS 

SAVE ADDRESS OF (END OF ARRAY DESCRIPTOR - 5) 
ADD TOTAL SIZE OF NEW ARRAY 

OM ERROR IF > »FFFF 
SAVE END OF ARRAY IN X 

MAKE SURE THERE IS ENOUGH FREE RAM FOR ARRAY 
SUBTRACT OUT THE (STACK BUFFER - 5) 
SAVE NEK END OF ARRAYS 
ZERO = TERMINATOR BYTE 

* STORE TWO TERMINATOR BYTES AT 

* THE END OF THE ARRAY DESCRIPTOR 



GET ADDRESS OF START OF DESCRIPTOR 
GET MSB OF END OF ARRAYS; LSB ALREADY THERE 
SUBTRACT OUT ADDRESS OF START OF DESCRIPTOR 
SAVE LENGTH OF (ARRAY AND DESCRIPTOR) 

* GET ARRAY FLAG AND BRANCH 

* BACK IF DIMENSIONING 

GET THE NUMBER OF DIMENSIONS 
TEMPORARILY SAVE 

* INITIALIZE POINTER 

* TO ZERO 



LB4A6 


STD 


COEFPT 


SAVE ACCUMULATED POINTER 




PULS 


A,B 


* PULL DIMENSION ARGUMENT OFF THE 




STD 


FPA0+2 


* STACK AND SAVE IT 




CMPD 


5,X 


COMPARE TO STORED DIM ARGUMENT 




BCC 


LB4EB 


BS ERROR IF > = "DIM" ARGUMENT 




LDU 


COEFPT 


* GET ACCUMULATED POINTER AND 




BEO 


LB4B9 


* BRANCH IF 1ST DIMENSION 




BSR 


LB4CE 


= MULTIPLY ACCUMULATED POINTER AND DII 




ADDD 


FPA0+2 


= LENGTH AND ADD TO CURRENT ARGUMENT 


LB4B9 


LEAX 


2,X 


MOVE POINTER TO NEXT DIMENSION 




DEC 


TMPLOC 


* DECREMENT DIMENSION COUNTER AND 




BNE 


LB4A6 


* BRANCH IF ANY DIMENSIONS LEFT 


* MULTIPLY ACCD 


BY 5 - 5 


BYTES/ARRAY VALUE 




STD 


,--s 






ASLB 








ROLA 




TIMES 2 




ASLB 








ROLA 




TIMES 4 




ADDD 


,s++ 


TIMES 5 




LEAX 


D,X 


ADD OFFSET TO START OF ARRAY 




LEAX 


5,X 


ADJUST POINTER FOR SIZE OF DESCRIPTOR 




STX 


VARPTR 


SAVE POINTER TO ARRAY VALUE 


LB4CD 


RTS 






* MULTIPLY 2 BYTE NUMBER 


IN 5,X BY THE 2 BYTE NUMBER 


IN COEFPT 


. RETURN RESULT 


IN ACCD, BS ERROR IF > »FFFF 


LB4CE 


LDA 


#16 


16 SHIFTS TO DO A MULTIPLY 




STA 


V45 


SHIFT COUNTER 




LDD 


5,X 


* GET SIZE OF DIMENSION 




STD 


BOTSTK 


* AND SAVE IT 




CLRA 




* ZERO 




CLRB 




* ACCD 


LB4D8 


ASLB 




= SHIFT ACCB LEFT 




ROLA 




= ONE BIT 




BCS 


LB4EB 


'BS' ERROR IF CARRY 




ASL 


COEFPT+1 


* SHIFT MULTIPLICAND LEFT ONE 




ROL 


COEFPT 


* BIT - ADD MULTIPLIER TO ACCUMULATOR 




BCC 


LB4E6 


* IF CARRY <> 




ADDD 


BOTSTK 


ADD MULTIPLIER TO ACCD 




BCS 


LB4EB 


'BS' ERROR IF CARRY (>»FFFF) 


LB4E6 


DEC 


V45 


* DECREMENT SHIFT COUNTER 




BNE 


LB4D8 


* IF NOT DONE 




RTS 






LB4EB 


JMP 


LB447 


'BS' ERROR 



3011 






3012 






3013 






3014 






3015 






3016 


B4EE 


IF 40 


3017 


B4F0 


93 IF 



3020 

3021 
3022 
3023 
3024 
3025 
3026 



MEM 

THIS IS NOT A TRUE INDICATOR OF FREE MEMORY BECAUSE 
BASIC REQUIRES A STKBUF SIZE BUFFER FOR THE STACK 
FOR WHICH MEM DOES NOT ALLOW. 



MEM TFR S,D 

SUBD ARYEND 
FCB SKP1 

♦CONVERT THE VALUE IN ACCB 

LB4F3 CLRA 



PUT STACK POINTER INTO ACCD 
SUBTRACT END OF ARRAYS 
SKIP ONE BYTE 
INTO A FP NUMBER IN FPA0 

CLEAR MS BYTE OF ACCD 



* CONVERT THE VALUE IN ACCD INTO A FLOATING POINT NUMBER IN FPA0 
GIVABF CLR VALTYP SET VARIABLE TYPE TO NUMERIC 

STD FPA0 SAVE ACCD IN TOP OF FACA 

LDB #$90 EXPONENT REQUIRED IF THE TOP TWO BYTES 

* OF FPA0 ARE TO BE TREATED AS AN INTEGER IN FPA0 
JMP LBC82 CONVERT THE REST OF FPA0 TO AN INTEGER 



COLOR BASIC UNRAVELLED II 
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3027 








3028 








3029 


B4FD 


BD 


Bl 43 


3030 


B500 


CE 


03 D9 


3031 


B503 


BD 


BD DC 


3032 


B506 


32 


62 


3033 


B508 


8E 


03 D8 


3034 


B50B 


20 


0B 


3035 








3036 








3037 


B50D 


9F 


4D 


3038 


B50F 


8D 


5C 


3039 


B511 


9F 


58 


3040 


B513 


D7 


56 


3041 


B515 


39 




3042 


B516 


30 


IF 


3043 








3044 








3045 








3046 








3047 


B518 


86 


22 


3048 


B51A 


97 


01 


3049 


B51C 


97 


02 


3050 


B51E 


30 


01 


3051 


B520 


9F 


62 


3052 


B522 


9F 


58 


3053 


B524 


C6 


FF 


3054 


B526 


5C 




3055 


B527 


A6 


80 


3056 


B529 


27 


0C 


3057 


B52B 


91 


01 


3058 


B52D 


27 


04 


3059 


B52F 


91 


02 


3060 


B531 


26 


F3 


3061 


B533 


81 


22 


3062 


B535 


27 


02 


3063 


B537 


30 


IF 


3064 


B539 


9F 


64 


3065 


B53B 


D7 


56 


3066 


B53D 


DE 


62 


3067 


B53F 


11 


83 03 D9 


3068 


B543 


22 


07 


3069 


B545 


8D 


C6 


3070 


B547 


9E 


62 


3071 


B549 


BD 


B6 45 


3072 








3073 








3074 








3075 


B54C 


9E 


0B 


3076 


B54E 


8C 


01 Dl 


3077 


B551 


26 


05 


3078 


B553 


C6 


IE 


3079 


B555 


7E 


AC 46 


3080 


B558 


96 


56 


3081 


B55A 


A7 


00 


3082 


B55C 


DC 


58 


3083 


B55E 


ED 


02 


3084 


B560 


86 


FF 


3085 


B562 


97 


06 


3086 


B564 


9F 


0D 


3087 


B566 


9F 


52 


3088 


B568 


30 


05 


3089 


B56A 


9F 


0B 


3090 


B56C 


39 




3091 








3092 








3093 








3094 


B56D 


0F 


07 


3095 


B56F 


4F 




3096 


B570 


34 


06 


3097 


B572 


DC 


23 


3098 


B574 


A3 


E0 


3099 


B576 


10 


93 21 


3100 


B579 


25 


0A 


3101 


B57B 


DD 


23 


3102 


B57D 


9E 


23 


3103 


B57F 


30 


01 


3104 


B581 


9F 


25 


3105 


B583 


35 


84 


3106 


B585 


C6 


1A 


3107 


B587 


03 


07 


3108 


B589 


27 


CA 


3109 


B58B 


8D 


04 


3110 


B58D 


35 


04 


3111 


B58F 


20 


DE 


3112 








3113 


B591 


9E 


27 


3114 


B593 


9F 


23 


3115 


3595 


4F 





R 


JSR 


LB143 




LDU 


#STRBUF+2 




JSR 


LBDDC 




LEAS 


2,S 




LDX 


#STRBUF+1 




BRA 


LB518 


RESERVE 


ACCB I 


3YTES OF STRING SPACE 


ADDRESS 


IN (X) AND FRESPC 


150D 


STX 


V4D 


I50F 


BSR 


LB56D 


1511 


STX 


STRDES+2 




STB 


STRDES 




RTS 




:516 


LEAX 


-1,X 


SCAN A 


LINE FROM (X) UNTIL AN END I 


EITHER 


OF THE 


TMO TERMINATORS STORI 


THE RESULTING 


STRING IS STORED IN ' 


ONLY IF 


THE START OF THE STRING IS 


1518 


LDA 


#'" 




STA 


CHARAC 


I51A 


STA 


ENDCHR 


I51E 


LEAX 


1,X 




STX 


RESSGN 




STX 


STRDES+2 




LDB 


#-1 


1526 


INCB 






LDA 


,x+ 




BEQ 


LB537 




CHPA 


CHARAC 




BEO 


LB533 




CHPA 


ENDCHR 




BNE 


LB526 


:533 


CHPA 


#"' 




BEO 


LB539 


1537 


LEAX 


-i,x 


:539 


STX 


COEFPT 




STB 


STRDES 




LDU 


RESSGN 




CHPU 


#STRBUF+2 


1543 


BH I 


LB54C 




BSR 


LB50D 




LDX 


RESSGN 




JSR 


LB645 


PUT DIRECT PAGE STRING DESCRIPTOR 1 


ON THE 


STRING 


STACK. SET VARIABLE ' 


154C 


LDX 


TEHPPT 




CHPX 


#CFNBUF 




BNE 


LB558 




LDB 


#15*2 


:555 


JHP 


LAC46 


;558 


LDA 


STRDES 




STA 


,x 




LDD 


STRDES+2 




STD 


2,X 




LDA 


#»FF 




STA 


VALTYP 




STX 


LASTPT 




STX 


FPA0+2 




LEAX 


5,X 




STX 


TEHPPT 




RTS 




RESERVE 


ACCB I 


3YTES IN STRING STORAI 


RETURN 


WITH THE STARTING ADDRESS 01 


RESERVED STRING SPACE IN (X) AND F[ 


156D 


CLR 


GARBFL 


156F 


CLRA 






PSHS 


B,A 




LDD 


STRTAB 




SUBD 


,s+ 




CHPD 


FRETOP 




BCS 


LB585 




STD 


STRTAB 




LDX 


STRTAB 




LEAX 


1,X 




STX 


FRESPC 




PULS 


B,PC 


:585 


LDB 


#2*13 




COH 


GARBFL 




BEO 


LB555 




BSR 


LB591 




PULS 


B 




BRA 


LB56F 


REORGANIZE THE STRING SPACE 


1591 


LDX 


HEHSIZ 


;593 


STX 
CLRA 


STRTAB 



'TM' ERROR IF STRING VARIABLE 
•CONVERT FP NUMBER TO ASCII STRING IN 
*THE STRING BUFFER 

PURGE THE RETURN ADDRESS FROM THE STACK 
*POINT X TO STRING BUFFER AND SAVE 
*THE STRING IN THE STRING SPACE 
RETURN START 

SAVE X IN V4D 

RESERVE ACCB BYTES IN STRING SPACE 

SAVE NEW STRING ADDRESS 

SAVE LENGTH OF RESERVED BLOCK 

MOVE POINTER BACK ONE 
OF LINE FLAG (ZERO) OR 
ED IN CHARAC OR ENDCHR IS MATCHED. 
THE STRING SPACE 
STRBUF+2 

* INITIALIZE 

* TERMINATORS 

* TO " 

MOVE POINTER UP ONE 
TEMPORARILY SAVE START OF STRING 
SAVE START OF STRING IN TEMP DESCRIPTOR 
INITIALIZE CHARACTER COUNTER TO - 1 
INCREMENT CHARACTER COUNTER 
GET CHARACTER 
BRANCH IF END OF LINE 

* CHECK FOR TERMINATORS 

* IN CHARAC AND ENDCHR 

* DON T MOVE POINTER BACK 

* ONE IF TERHINATOR IS "MATCHED" 
= COMPARE CHARACTER TO STRING DELIMITER 
= & DON T MOVE POINTER BACK IF SO 
HOVE POINTER BACK ONE 
SAVE END OF STRING ADDRESS 
SAVE STRING LENGTH IN TEHP DESCRIPTOR 
GET INITIAL STRING START 
COMPARE TO START OF STRING BUFFER 
BRANCH IF > START OF STRING BUFFER 
GO RESERVE SPACE FOR THE STRING 
POINT X TO THE BEGINNING OF THE STRING 
MOVE (B) BYTES FROM (X) TO 
[FRESPC] - HOVE STRING DATA 

BUFFER DATA 

TYPE TO STRING 

GET NEXT AVAILABLE STRING STACK DESCRIPTOR 

COMPARE TO TOP OF STRING DESCRIPTOR STACK 

FORMULA O.K. 

'STRING FORMULA TOO COHPLEX' ERROR 

JUHP TO ERROR SERVICING ROUTINE 

* GET LENGTH OF STRING AND SAVE IT 

* IN BYTE OF DESCRIPTOR 
= GET START ADDRESS OF ACTUAL STRING 
= AND SAVE IN BYTES 2,3 OF DESCRIPTOR 

* VARIABLE TYPE = STRING 

* SAVE IN VARIABLE TYPE FLAG 
= SAVE START OF DESCRIPTOR 
= ADDRESS IN LASTPT AND FPA0 
5 BYTES/STRING DESCRIPTOR 
NEXT AVAILABLE STRING VARIABLE DESCRIPTOR 

GE SPACE 
F THE 
RESPC 

CLEAR STRING REORGANIZATION FLAG 

* PUSH THE LENGTH OF THE 

* STRING ONTO THE STACK 
GET START OF STRING VARIABLES 
SUBTRACT STRING LENGTH 
COMPARE TO START OF STRING STORAGE 
IF BELOW START, THEN REORGANIZE 
SAVE NEU START OF STRING VARIABLES 
GET START OF STRING VARIABLES 
ADD ONE 

SAVE START ADDRESS OF NEWLY RESERVED SPACE 
RESTORE NUMBER OF BYTES RESERVED AND RETURN 
'OUT OF STRING SPACE' ERROR 
TOGGLE REORGANIZATION FLAG 
ERROR IF FRESHLY REORGANIZED 
GO REORGANIZE STRING SPACE 
GET BACK THE NUMBER OF BYTES TO RESERVE 
TRY TO RESERVE ACCB BYTES AGAIN 

GET THE TOP OF STRING SPACE 

SAVE TOP OF UNORGANIZED STRING SPACE 

* ZERO OUT ACCD 
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3116 


3595 


5F 




3117 


B597 


DD 


4B 


3118 


B599 


9E 


21 


3119 


B59B 


9F 


47 


3120 


B59D 


8E 


01 A9 


3121 


B5A0 


9C 


0B 


3122 


B5A2 


27 


04 


3123 


B5A4 


8D 


32 


3124 


B5A6 


20 


F8 


3125 


B5A8 


9E 


IB 


3126 


B5AA 


9C 


ID 


3127 


B5AC 


27 


04 


3128 


B5AE 


8D 


22 


3129 


B5B0 


20 


F8 


3130 


B5B2 


9F 


41 


3131 


B5B4 


9E 


41 


3132 


B5B6 


9C 


IF 


3133 


B5B8 


27 


35 


3134 


B5BA 


EC 


02 


3135 


B5BC 


D3 


41 


3136 


B5BE 


DD 


41 


3137 


B5C0 


A6 


01 


3138 


B5C2 


2A 


F0 


3139 


B5C4 


E6 


04 


3140 


B5C6 


58 




3141 


B5C7 


CB 


05 


3142 








3143 


B5C9 


3A 




3144 


B5CA 


9C 


41 


3145 


B5CC 


27 


E8 


3146 


B5CE 


8D 


08 


3147 








3148 


B5D0 


20 


F8 


3149 


B5D2 


A6 


01 


3150 


B5D4 


30 


02 


3151 


B5D6 


2A 


14 


3152 








3153 








3154 








3155 








3156 


B5D8 


E6 


84 


3157 


B5DA 


27 


10 


3158 


B5DC 


EC 


02 


3159 


B5DE 


10 


93 23 


3160 


B5E1 


22 


09 


3161 








3162 


B5E3 


10 


93 47 


3163 


B5E6 


23 


04 


3164 


B5E8 


9F 


4B 


3165 


B5EA 


DD 


47 


3166 


B5EC 


30 


05 


3167 


B5EE 


39 




3168 


B5EF 


9E 


4B 


3169 








3170 








3171 


B5F1 


27 


FB 


3172 


B5F3 


4F 




3173 


B5F4 


E6 


84 


3174 


B5F6 


5A 




3175 


B5F7 


D3 


47 


3176 


B5F9 


DD 


43 


3177 


B5FB 


9E 


23 


3178 


B5FD 


9F 


41 


3179 


B5FF 


BD 


AC 20 


3180 








3181 


B602 


9E 


4B 


3182 


B604 


DC 


45 


3183 


B606 


ED 


02 


3184 


B608 


9E 


45 


3185 


B60A 


30 


IF 


3186 > B60C 


7E 


B5 93 


3187 








3188 








3189 


B60F 


DC 


52 


3190 


B611 


34 


06 


3191 


B613 


BD 


B2 23 


3192 


B616 


BD 


Bl 46 


3193 


B619 


35 


10 


3194 


B61B 


9F 


62 


3195 


B61D 


E6 


84 


3196 


B61F 


9E 


52 


3197 


B621 


EB 


84 


3198 


B623 


24 


05 


3199 


B625 


C6 


1C 


3200 


B627 


7E 


AC 46 


3201 


B62A 


BD 


B5 0D 


3202 


B62D 


9E 


62 


3203 


B62F 


E6 


84 


3204 


B631 


8D 


10 



* AND RESET VARIABLE 

* POINTER TO 

POINT X TO START OF STRING SPACE 
SAVE POINTER IN V47 

POINT X TO START OF STRING DESCRIPTOR STACK 
COMPARE TO ADDRESS OF NEXT AVAILABLE DESCRIPTOR 
BRANCH IF TOP OF STRING STACK 
CHECK FOR STRING IN UNORGANIZED STRING SPACE 
KEEP CHECKING 

GET THE END OF BASIC PROGRAM 
COMPARE TO END OF VARIABLES 
BRANCH IF AT TOP OF VARIABLES 
CHECK FOR STRING IN UNORGANIZED STRING SPACE 
KEEP CHECKING VARIABLES 
SAVE ADDRESS OF THE END OF VARIABLES 
GET CURRENT ARRAY POINTER 
COMPARE TO THE END OF ARRAYS 
BRANCH IF AT END OF ARRAYS 
GET LENGTH OF ARRAY AND DESCRIPTOR 

* ADD TO CURRENT ARRAY POINTER 

* AND SAVE IT 

GET 1ST CHARACTER OF VARIABLE NAME 
BRANCH IF NUMERIC ARRAY 

GET THE NUMBER OF DIMENSIONS IN THIS ARRAY 
MULTIPLY BY 2 

ADD FIVE BYTES (VARIABLE NAME, ARRAY 
LENGTH, NUMBER DIMENSIONS) 
X NOW POINTS TO START OF ARRAY ELEMENTS 
AT END OF THIS ARRAY? 
YES - CHECK FOR ANOTHER 
CHECK FOR STRING LOCATED IN 
UNORGANIZED STRING SPACE 
KEEP CHECKING ELEMENTS IN THIS ARRAY 
GET FIRST BYTE OF VARIABLE NAME 
MOVE POINTER TO DESCRIPTOR 
BRANCH IF VARIABLE IS NUMERIC 

SEARCH FOR STRING - ENTER WITH X POINTING TO 
THE STRING DESCRIPTOR. IF STRING IS STORED 
BETUEEN V47 AND STRTAB, SAVE DESCRIPTOR POINTER 
IN V4B AND RESET V47 TO STRING ADDRESS 





CLRB 






STD 


V4B 




LDX 


FRETOP 




STX 


V47 




LDX 


#STRSTK 


;5A0 


CMPX 


TEMPPT 




BEQ 


LB5A8 




BSR 


LB5D8 




BRA 


LB5A0 


;5A8 


LDX 


VARTAB 


)5AA 


CMPX 


ARYTAB 




BEO 


LB5B2 




BSR 


LB5D2 




BRA 


LB5AA 


;5B2 


STX 


V41 


;5B4 


LDX 


V41 


;5B6 


CMPX 


ARYEND 




BEO 


LB5EF 




LDD 


2,X 




ADDD 


V41 




STD 


V41 




LDA 


1,X 




BPL 


LB5B4 




LDB 


4,X 




ASLB 






ADDB 


#5 




ABX 




;5CA 


CMPX 


V41 




BEQ 


LB5B6 




BSR 


LB5D8 




BRA 


LB5CA 


;5D2 


LDA 


1,X 




LEAX 


2,X 



B5EC 



LDB 





BEQ 


LB5EC 




LDD 


2,X 




CMPD 


STRTAB 




BHI 


LB5EC 




CMPD 


V47 




BLS 


LB5EC 




STX 


V4B 




STD 


V47 


LB5EC 


LEAX 


5,X 


LB5EE 


RTS 




LB5EF 


LDX 


V4B 


* 


BEQ 


LB5EE 




CLRA 






LDB 


,x 




DECB 






ADDD 


V47 




STD 


V43 




LDX 


STRTAB 




STX 


V41 




JSR 


LAC20 




LDX 


V4B 




LDD 


V45 




STD 


2,X 




LDX 


V45 




LEAX 


-1,X 




JMP 


LB593 


* CONCATENATE TWO STRIN 


LB60F 


LDD 


FPA0+2 




PSHS 


B,A 




JSR 


LB223 




OSR 


LB146 




PULS 


X 




STX 


RESSGN 




LDB 


,x 




LDX 


FPA0+2 




ADDB 


,x 




BCC 


LB62A 




LDB 


#2*14 




JMP 


LAC46 


LB62A 


JSR 


LB50D 




LDX 


RESSGN 



GET THE LENGTH OF THE STRING 

BRANCH IF NULL - NO STRING 

GET STARTING ADDRESS OF THE STRING 

COMPARE TO THE START OF STRING VARIABLES 

BRANCH IF THIS STRING IS STORED IN 

THE STRING VARIABLES 

COMPARE TO START OF STRING SPACE 

BRANCH IF NOT STORED IN THE STRING SPACE 

SAVE VARIABLE POINTER IF STORED IN STRING SPACE 

SAVE STRING STARTING ADDRESS 

MOVE TO NEXT VARIABLE DESCRIPTOR 

GET ADDRESS OF THE DESCRIPTOR FOR THE 

STRING MHICH IS STORED IN THE HIGHEST RAM ADDRESS IN 

THE UNORGANIZED STRING SPACE 

BRANCH IF NONE FOUND AND REORGANIZATION DONE 

CLEAR MS BYTE OF LENGTH 

GET LENGTH OF STRING 

SUBTRACT ONE 

ADD LENGTH OF STRING TO ITS STARTING ADDRESS 

SAVE AS MOVE STARTING ADDRESS 

POINT X TO THE START OF ORGANIZED STRING VARIABLES 

SAVE AS MOVE ENDING ADDRESS 

MOVE STRING FROM CURRENT POSITION TO THE 

TOP OF UNORGANIZED STRING SPACE 

POINT X TO STRING DESCRIPTOR 

* GET NEW STARTING ADDRESS OF STRING AND 

* SAVE IT IN DESCRIPTOR 

GET NEW TOP OF UNORGANIZED STRING SPACE 

MOVE POINTER BACK ONE 

JUMP BACK AND REORGANIZE SOME MORE 



* GET DESCRIPTOR ADDRESS OF STRING A 

* AND SAVE IT ON THE STACK 

GET DESCRIPTOR ADDRESS OF STRING B 
'TM' ERROR IF NUMERIC VARIABLE 

* POINT X TO STRING A DESCRIPTOR 

* ADDRESS AND SAVE IT IN RESSGN 
GET LENGTH OF STRING A 

POINT X TO DESCRIPTOR OF STRING B 

ADD LENGTH OF STRING B TO STRING A 

BRANCH IF LENGTH < 256 

'STRING TOO LONG' ERROR IF LENGTH > 255 

JUMP TO ERROR SERVICING ROUTINE 

RESERVE ROOM IN STRING SPACE FOR NEW STRING 

GET DESCRIPTOR ADDRESS OF STRING A 

GET LENGTH OF STRING A 

MOVE STRING A INTO RESERVED BUFFER IN STRING SPACE 
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3205 


B633 


9E 


4D 


3206 


B635 


8D 


22 


3207 


B637 


8D 


0C 


3208 


B639 


9E 


62 


3209 


B63B 


8D 


1C 


3210 


B63D 


BD 


B5 4C 


3211 


B640 


7E 


Bl 68 


3212 








3213 








3214 


B643 


AE 


02 


3215 


B645 


DE 


25 


3216 


B647 


5C 




3217 


B648 


20 


04 


3218 








3219 


B64A 


A6 


80 


3220 


B64C 


A7 


C0 


3221 


B64E 


5A 




3222 


B64F 


26 


F9 


3223 


B651 


DF 


25 


3224 


B653 


39 




3225 








3226 








3227 








3228 








3229 








3230 


B654 


BD 


Bl 46 


3231 


B657 


9E 


52 


3232 


B659 


E6 


84 


3233 


B65B 


8D 


18 


3234 


B65D 


26 


13 


3235 








3236 


B65F 


AE 


07 


3237 


B661 


30 


IF 


3238 


B663 


9C 


23 


3239 


B665 


26 


08 


3240 








3241 


B667 


34 


04 


3242 


B669 


D3 


23 


3243 


B66B 


DD 


23 


3244 








3245 


B66D 


35 


04 


3246 


B66F 


30 


01 


3247 


B671 


39 




3248 


B672 


AE 


02 


3249 


B674 


39 




3250 








3251 








3252 








3253 








3254 


B675 


9C 


0D 


3255 


B677 


26 


07 


3256 








3257 


B679 


9F 


0B 


3258 


B67B 


30 


IB 


3259 


B67D 


9F 


0D 


3260 


B67F 


4F 




3261 


B680 


39 




3262 








3263 








3264 


B681 


8D 


03 


3265 


B683 


7E 


B4 F3 


3266 








3267 








3268 








3269 


B686 


8D 


cc 


3270 


B688 


0F 


06 


3271 


B68A 


5D 




3272 


B68B 


39 




3273 








3274 








3275 > B68C 


BD 


B7 0E 


3276 


B68F 


C6 


01 


3277 


B691 


BD 


B5 6D 


3278 


B694 


96 


53 


3279 


B696 


BD 


B5 11 


3280 


B699 


A7 


84 


3281 


B69B 


32 


62 


3282 


B69D 


7E 


B5 4C 


3283 








3284 








3285 


B6A0 


8D 


82 


3286 


B6A2 


20 


DF 


3287 


B6A4 


8D 


E0 


3288 


B6A6 


27 


5E 


3289 


B6A8 


E6 


84 


3290 


B6AA 


39 




3291 








3292 








3293 


B6AB 


8D 


48 





LDX 


V4D 




BSR 


LB659 




BSR 


LB645 




LDX 


RESSGN 




BSR 


LB669 




JSR 


LB54C 




JHP 


LB168 


* MOVE 


(B) BYTES FROM 2,X ' 


LB643 


LDX 


2,X 


LB645 


LDU 
INCB 


FRESPC 




BRA 


LB64E 


* MOVE 


B BYTES 


FROM (X) TO 


LB64A 


LDA 


,x+ 




STA 


,u+ 


LB64E 


DECB 






BNE 


LB64A 




STU 


FRESPC 




RTS 





TO FRESPC 



GET DESCRIPTOR ADDRESS OF STRING B 

GET LENGTH AND ADDRESS OF STRING B 

MOVE STRING B INTO REST OF RESERVED BUFFER 

POINT X TO DESCRIPTOR OF STRING A 

DELETE STRING A IF LAST STRING ON STRING STACK 

PUT STRING DESCRIPTOR ON THE STRING STACK 

BRANCH BACK TO EXPRESSION EVALUATION 



POINT X TO SOURCE ADDRESS 
POINT U TO DESTINATION ADDRESS 
COMPENSATION FOR THE DECB BELOH 
GO MOVE THE BYTES 

* GET A SOURCE BYTE AND MOVE IT 

* TO THE DESTINATION 
DECREMENT BYTE COUNTER 
BRANCH IF ALL BYTES NOT MOVED 
SAVE ENDING ADDRESS IN FRESPC 



RETURN LENGTH (ACCB) AND ADDRESS (X) OF 

STRING HHOSE DESCRIPTOR IS IN FPA0+2 

DELETE THE STRING IF IT IS THE LAST ONE 

PUT ON THE STRING STACK. REMOVE STRING FROM STRING 

SPACE IF IT IS AT THE BOTTOM OF STRING VARIABLES. 



B654 
B657 
B659 



JSR 
LDX 



LDX 
LEAX 

CMPX 
BNE 

PSHS 

ADDD 
STD 



LB146 
FPA0+2 



LB675 
LB672 



STRTAB 
LB66F 



STRTAB 
STRTAB 



PULS B 

B66F LEAX 1,X 

RTS 

B672 LDX 2,X 
RTS 

REMOVE STRING FROM STRING STACK. 

POINTING TO A STRING DESCRIPTOR 
STRING FROM STACK IF IT IS ON TOP OF THE 

STACK. IF THE STRING IS DELETED, SET THE ZERO FLAG 



'TM' ERROR IF VARIABLE TYPE = NUMERIC 
GET ADDRESS OF SELECTED STRING DESCRIPTOR 
GET LENGTH OF STRING 

* CHECK TO SEE IF THIS STRING DESCRIPTOR HAS 

* THE LAST ONE PUT ON THE STRING STACK AND 

* BRANCH IF NOT 

GET START ADDRESS OF STRING JUST REMOVED 

MOVE POINTER DOWN ONE 

COMPARE TO START OF STRING VARIABLES 

BRANCH IF THIS STRING IS NOT AT THE BOTTOM 

OF STRING VARIABLES 

SAVE LENGTH; ACCA HAS CLEARED 

* ADD THE LENGTH OF THE JUST REMOVED STRING 

* TO THE START OF STRING VARIABLES - THIS HILL 

* REMOVE THE STRING FROM THE STRING SPACE 
RESTORE LENGTH 
ADD ONE TO POINTER 

*POINT X TO ADDRESS OF STRING NOT 
*ON THE STRING STACK 
ENTER HITH X 
DELETE THE 



CMPX 
BNE 

STX 
LEAX 
STX 
CLRA 

RTS 



•COMPARE TO LAST USED DESCRIPTOR ADDRESS 
*ON THE STRING STACK, RETURN IF DESCRIPTOR 
♦ADDRESS NOT ON THE STRING STACK 
SAVE LAST USED DESCRIPTOR AS NEXT AVAILABLE 

* MOVE LAST USED DESCRIPTOR BACK 5 BYTES 

* AND SAVE AS THE LAST USED DESCRIPTOR ADDR 
SET ZERO FLAG 



BSR LB686 
JMP LB4F3 



* LEN 
LEN 
LB683 

* POINT X TO STRING ADDRESS LOAD LENGTH INTO 

* ACCB. ENTER HITH THE STRING DESCRIPTOR IN 

* BOTTOM THO BYTES OF FPA0 



POINT X TO PROPER STRING AND GET LENGTH 
CONVERT ACCB TO FP NUMBER IN FPA0 



LB686 



BSR LB654 
CLR VALTYP 
TSTB 

RTS 



JSR 


LB56D 


LDA 


FPA0+3 


JSR 


LB511 


STA 


,x 


LEAS 


2,X 


JMP 


LB54C 


BSR 


LB6A4 


BRA 


LB683 


BSR 


LB686 


BEQ 


LB706 



* LEFTS 
LEFT 



GET LENGTH AND ADDRESS OF STRING 
SET VARIABLE TYPE TO NUMERIC 
SET FLAGS ACCORDING TO LENGTH 



CONVERT FPA0 TO AN INTEGER IN ACCD 

* RESERVE ONE BYTE IN 

* THE STRING SPACE 
GET ASCII STRING VALUE 

SAVE RESERVED STRING DESCRIPTOR IN TEMP DESCRIPTOR 
SAVE THE STRING (IT S ONLY ONE BYTE) 
PURGE THE RETURN ADDRESS OFF OF THE STACK 
PUT TEMP DESCRIPTOR DATA ONTO STRING STACK 



PUT 1ST CHARACTER OF STRING INTO ACCB 
CONVERT ACCB INTO FP NUMBER IN FPA0 
POINT X TO STRING DESCRIPTOR 
'FC ERROR IF NULL STRING 
GET FIRST BYTE OF STRING 



GET ARGUMENTS FROM STACK 
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BD 
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4D 
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24 
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89 
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AE 
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E6 
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B709 
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BD 
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BD 
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B719 


10 
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B71D 
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9F 


A6 
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3A 




3367 


B722 


A6 


84 


3368 


B724 


34 


52 


3369 








3370 


B726 


6F 


84 


3371 


B728 


9D 


A5 


3372 


B72A 


BD 


BD 12 


3373 


B72D 


35 


52 


3374 


B72F 


A7 


84 
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B731 


DF 
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B733 


39 




3377 
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8D 
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3379 


B736 


9F 


2B 


3380 


B738 


BD 


B2 6D 


3381 


B73B 


20 


CE 


3382 









CLRA 
CHPB 





CLRA 




LB6B5 


PSFIS 


B,A 




JSR 


LB50F 




LDX 


V4D 




BSR 


LB659 




PUTS 


B 




ABX 






PUTS 


B 




JSR 


LB645 




BRA 


LB69D 


* RIGHTS 






RIGHT 


BSR 


LB6F5 




SUBA 


,x 




NEGA 






BRA 


LB6AE 


* HID$ 






MID 


LDB 


#$FF 




STB 


FPA0+3 




JSR 


GETCCH 




CHPA 


#' ) 




BEQ 


LB6DE 




JSR 


LB26D 




BSR 


LB70B 


LB6DE 


BSR 


LB6F5 




BEQ 


LB706 




CLRB 






DECA 






CHPA 


,x 



NEGB 
CHPB 
BLS 



LB6B5 



SE ALL OF THE STRING TO THE RIGHT OF THE 
NSTEAD OF THE LENGTH PARAMETER 
LDB FPA0+3 



BRA 



LB6B5 



DO A SYNTAX CHECK FOR ")", THEN PULL THE 
ARGUHENT (ACCD) AND STRING ARGUMENT DESC 



LB6F5 


JSR 


LB267 




LDU 


,s 




LDX 


5,S 




STX 


V4D 




LDA 


4,S 




LDB 


4,S 




LEAS 


7,S 




TFR 


U,PC 


LB706 


JHP 


LB44A 


* EVALUATE AN EXPRESSION - RETURN 


* ACCB - 


'FC ERROR IF EXPRESSION 


LB709 


JSR 


GETNCH 


LB70B 


JSR 


LB141 


LB70E 


JSR 
TSTA 


LB3E9 




BNE 


LB706 




JHP 


GETCCH 


* VAL 






VAL 


JSR 


LB686 




LBEQ 


LBA39 




LDU 


CHARAD 




STX 


CHARAD 




ABX 






LDA 


,x 




PSHS 


U,X,A 




CLR 


,x 




JSR 


GETCCH 




JSR 


LBD12 




PULS 


A,X,U 




STA 


,x 




STU 


CHARAD 




RTS 




LB734 


BSR 


LB73D 




STX 


BINVAL 


LB738 


JSR 


LB26D 



CLEAR STRING POINTER OFFSET - OFFSET = FOR LEFT* 

* COMPARE LENGTH PARAMETER TO LENGTH OF 

* STRING AND BRANCH IF LENGTH OF STRING 
>= LENGTH PARAMETER 

USE LENGTH OF STRING OTHERWISE 

CLEAR STRING POINTER OFFSET (0 FOR LEFT$) 

PUSH PARAMETERS ONTO STACK 

RESERVE ACCB BYTES IN THE STRING SPACE 

POINT X TO STRING DESCRIPTOR 

GET ADDRESS OF OLD STRING (X=ADDRESS) 

* PULL STRING POINTER OFFSET OFF OF THE STACK 

* AND ADD IT TO STRING ADDRESS 

PULL LENGTH PARAMETER OFF OF THE STACK 

MOVE ACCB BYTES FROM (X) TO [FRESPC] 

PUT TEMP STRING DESCRIPTOR ONTO THE STRING STACK 



GET ARGUMENTS FROM STACK 

ACCA=LENGTH PARAMETER - LENGTH OF OLD STRING 

NOB ACCA = LENGTH OF OLD STRING 

PUT NEK STRING IN THE STRING SPACE 



* GET DEFAULT VALUE OF LENGTH AND 

* SAVE IT IN FPA0 

GET CURRENT CHARACTER FROM BASIC 

ARGUMENT DELIMITER? 

YES - NO LENGTH PARAMETER GIVEN 

SYNTAX CHECK FOR COHHA 

EVALUATE NUMERIC EXPRESSION (LENGTH) 

GET ARGUMENTS FROM STACK 

'FC ERROR IF NULL STRING 

CLEAR LENGTH COUNTER (DEFAULT VALUE) 

*SUOTRACT ONE FROM POSITION PARAMETER (THESE 

•ROUTINES EXPECT 1ST POSITION TO BE ZERO, NOT ONE) 

*AND COMPARE IT TO LENGTH OF OLD STRING 

IF POSITION > LENGTH OF OLD STRING, THEN NEK 

STRING HILL BE A NULL STRING 

SAVE ABSOLUTE POSITION PARAMETER IN ACCB 

ACCB=POSITION-LENGTH OF OLD STRING 

NOM ACCB=LENGTH OF OLDSTRING- POSITION 

*IF THE AMOUNT OF OLD STRING TO THE RIGHT OF 

•POSITION IS <= THE LENGTH PARAMETER, BRANCH AND 

POSITION 

GET LENGTH OF NEW STRING 
PUT NEW STRING IN STRING SPACE 
PREVIOUSLY CALCULATED NUMERIC 
RIPTOR ADDR OFF OF THE STACK 
SYNTAX CHECK FOR A ")" 
LOAD THE RETURN ADDRESS INTO U REGISTER 

* GET ADDRESS OF STRING AND 

* SAVE IT IN V4D 

= PUT LENGTH OF STRING IN 
= BOTH ACCA AND ACCB 

REMOVE DESCRIPTOR AND RETURN ADDRESS FROM STACK 
JUHP TO ADDRESS IN U REGISTER 
•ILLEGAL FUNCTION CALL' 
ER IN 

GET NEXT BASIC INPUT CHARACTER 

EVALUATE A NUMERIC EXPRESSION 

CONVERT FPA0 TO INTEGER IN ACCD 

TEST MS BYTE OF INTEGER 

'FC ERROR IF EXPRESSION > 255 

GET CURRENT INPUT CHARACTER FROM BASIC 



EVALUATE EXPRESSION 



POINT X TO STRING ADDRESS 

IF NULL STRING SET FPA0 

SAVE INPUT POINTER IN REGISTER U 

POINT INPUT POINTER TO ADDRESS OF STRING 

MOVE POINTER TO END OF STRING TERMINATOR 

GET LAST BYTE OF STRING 

SAVE INPUT POINTER, STRING TERMINATOR 

ADDRESS AND CHARACTER 

CLEAR STRING TERMINATOR : FOR ASCII - FP CONVERSION 

GET CURRENT CHARACTER FROH BASIC 

CONVERT AN ASCII STRING TO FLOATING POINT 

RESTORE CHARACTERS AND POINTERS 

REPLACE STRING TERHINATOR 

RESTORE INPUT CHARACTER 



* EVALUATE AN EXPRESSION, RETURN 

* THE VALUE IN X; STORE IT IN BINVAL 
SYNTAX CHECK FOR A COHHA 

EVALUATE EXPRESSION IN RANGE <= X < 256 
RETURN INTEGER PORTION IN X - ' FC ERROR IF 
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EXPRESSION IS NEGATIVE OR > 32767, I.E. NOT A LEGAL POSITIVE INTEGER. 



LB73D 


JSR 


LB141 


LB740 


LDA 


FP0SGN 




BMI 


LB706 




LDA 


FP0EXP 




CHPA 


#$90 




BHI 


LB706 




JSR 


LBCC8 




LDX 


FPA0+2 




RTS 




* PEEK 






PEEK 


BSR 


LB740 



POKE 


BSR 


LB734 




LDX 


BINVAL 




STB 


,x 




RTS 




* LLIST 






LLIST 


LDB 


#-2 





STB 


DEVNUH 




JSR 


GETCCH 


* LIST 






LIST 


PSHS 


CC 




JSR 


LAF67 




JSR 


LAD01 




STX 


LSTTXT 




PULS 


CC 




BEQ 


LB784 




JSR 


GETCCH 




BEQ 


LB789 




CHPA 


#»AC 




BNE 


LB783 




JSR 


GETNCH 




BEQ 


LB784 




JSR 


LAF67 




BEQ 


LB789 


LB783 


RTS 




* LIST 


THE ENTIRE PROGRAM 


LB784 


LDU 


MFFFF 




STU 


BINVAL 


LB789 


LEAS 


2,S 




LDX 


LSTTXT 


LB78D 


JSR 


LB95C 




JSR 


LA549 




LDD 


,x 




BNE 


LB79F 


LB797 


JSR 


LA42D 




CLR 


DEVNUH 




JHP 


LAC73 


LB79F 


STX 


LSTTXT 




LDD 


2,X 




CMPD 


BINVAL 




BHI 


LB797 




JSR 


LBDCC 




JSR 


LB9AC 




LDX 


LSTTXT 




BSR 


LB7C2 




LDX 


[LSTTXT] 




LDU 


#LINBUF+1 


LB7B9 


LDA 


,u+ 




BEQ 


LB78D 




JSR 


LB9B1 




BRA 


LB7B9 


* UNCRUNCH A LINE INTO BAS 


LB7C2 


JSR 


RVEC24 




LEAX 


4,X 




LDY 


#LINBUF+1 


LB7CB 


LDA 


,x+ 




BEQ 


LB820 




BHI 


LB7E6 




CHPA 


#' : 




BNE 


LB7E2 




LDB 


,x 




CHPB 


#$84 




BEQ 


LB7CB 




CHPB 


#$83 




BEQ 


LB7CB 




FCB 


SKP2 


LB7E0 


LDA 


#'! 


LB7E2 


BSR 


LB814 




BRA 


LB7CB 


* UNCRUNCH A TOKEN 



EVALUATE NUHERIC EXPRESSION 

GET SIGN OF FPA0 MANTISSA 

'ILLEGAL FUNCTION CALL' IF NEGATIVE 

GET EXPONENT OF FPA0 

COHPARE TO LARGEST POSITIVE INTEGER 

'ILLEGAL FUNCTION CALL' IF TOO LARGE 

SHIFT BINARY POINT TO EXTREME RIGHT OF FPA0 

LOAD X KITH LOWER TWO BYTES OF FPA0 



CONVERT FPA0 TO INTEGER IN REGISTER 
GET THE VALUE BEING 'PEEK'ED 
CONVERT ACCB INTO A FP NUMBER 



EVALUATE 2 EXPRESSIONS 

GET THE ADDRESS TO BE 'POKE' ED 

STORE THE DATA IN THAT ADDRESS 



* SET DEVICE NUMBER TO 

* PRINTER 

GET CURRENT CHARACTER FROM BASIC 



SAVE ZERO FLAG ON STACK 

CONVERT DECIMAL LINE NUHBER TO BINARY 

* FIND RAM ADDRESS OF THAT LINE NUMBER AND 

* SAVE IT IN LSTTXT 

GET ZERO FLAG FROM STACK 

BRANCH IF END OF LINE 

GET CURRENT CHARACTER FROM BASIC 

BRANCH IF END OF LINE 

MINUS TOKEN (IS IT A RANGE OF LINE NUMBERS?) 

NO - RETURN 

GET NEXT CHARACTER FROM BASIC 

BRANCH IF END OF LINE 

GET ENDING LINE NUMBER 

BRANCH IF LEGAL LINE NUMBER 



* SET THE DEFAULT ENDING LINE NUHBER 

* TO $FFFF 

PURGE RETURN ADDRESS FROM THE STACK 
POINT X TO STARTING LINE ADDRESS 
MOVE CURSOR TO START OF A NEW LINE 
CHECK FOR A BREAK OR PAUSE 
GET ADDRESS OF NEXT BASIC LINE 
BRANCH IF NOT END OF PROGRAM 
CHECK CLOSE FILE HANDLER 
SET DEVICE NUMBER TO SCREEN 
RETURN TO BASIC S MAIN INPUT LOOP 
SAVE NEW STARTING LINE ADDRESS 

* GET THE LINE NUMBER OF THIS LINE AND 

* COMPARE IT TO ENDING LINE NUMBER 

EXIT IF LINE NUMBER > ENDING LINE NUMBER 

PRINT THE NUMBER IN ACCD ON SCREEN IN DECIMAL 

SEND A SPACE TO CONSOLE OUT 

GET RAM ADDRESS OF THIS LINE 

UNCRUNCH A LINE 

POINT X TO START OF NEXT LINE 

POINT U TO BUFFER FULL OF UNCRUNCHED LINE 

GET A BYTE FROM THE BUFFER 

BRANCH IF END OF BUFFER 

SEND CHARACTER TO CONSOLE OUT 

GET ANOTHER CHARACTER 



S LINE INPUT BUFFER 

HOOK INTO RAM 



MOVE POINTER PAST ADDRESS OF NEXT LINE AND LINE NUMB 

UNCRUNCH LINE INTO LINE INPUT BUFFER 

GET A CHARACTER 

BRANCH IF END OF LINE 

BRANCH IF IT S A TOKEN 

CHECK FOR END OF SUB LINE 

BRNCH IF NOT END OF SUB LINE 

GET CHARACTER FOLLOWING COLON 

TOKEN FOR ELSE? 

YES - DON T PUT IT IN BUFFER 

TOKEN FOR REMARK? 

YES - DON T PUT IT IN BUFFER 

SKIP TWO BYTES 

EXCLAMATION POINT 

PUT CHARACTER IN BUFFER 

GET ANOTHER CHARACTER 
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81 


30 


3519 


B83C 


25 


04 


3520 


B83E 


81 


39 


3521 


B840 


23 


10 


3522 








3523 


B842 


0F 


43 


3524 


B844 


81 


20 


3525 


B846 


27 


0A 


3526 


B848 


97 


42 


3527 


B84A 


81 


22 


3528 


B84C 


27 


38 


3529 


B84E 


0D 


44 


3530 


B850 


27 


19 


3531 


B852 


A7 


C0 


3532 


B854 


27 


06 


3533 


B856 


81 


3A 


3534 


B858 


27 


CF 


3535 


B85A 


20 


Dl 


3536 


B85C 


6F 


C0 


3537 


B85E 


6F 


C0 


3538 


B860 


IF 


30 


3539 


B862 


83 


02 DA 


3540 


B865 


8E 


02 DB 


3541 


B868 


9F 


A6 


3542 


B86A 


39 




3543 


B86B 


81 


3F 


3544 


B86D 


26 


04 


3545 


B86F 


86 


87 


3546 


B871 


20 


DF 


3547 


B873 


81 


27 


3548 


B875 


26 


13 


3549 


B877 


cc 


3A 83 


3550 


B87A 


ED 


CI 


3551 


B87C 


0F 


42 


3552 


B87E 


A6 


80 


3553 


B880 


27 


D0 


3554 


B882 


91 


42 


3555 


B884 


27 


CC 


3556 


B886 


A7 


C0 


3557 


B888 


20 


F4 


3558 


B88A 


81 


30 


3559 


B88C 


25 


04 


3560 


B88E 


81 


3C 



LB7E6 


LDU 


SCOMVEC-10 




CHPA 


#$FF 




BNE 


LB7F1 




LDA 


,x+ 




LEAU 


5,1) 


LB7F1 


ANDA 


#$7F 


LB7F3 


LEAU 


10, U 




TST 


,u 




BEQ 


LB7E0 




SUBA 


,u 




BPL 


LB7F3 




ADDA 


,u 




LDU 


1,U 


LB801 


DECA 






BMI 


LB80A 


* SKIP 


THROUGH 


DICTIONARY TABLE 


LB804 


TST 


,u+ 




BPL 


LB804 




BRA 


LB801 



CHPY 


#LINBUF+LBUFMX 


BCC 


LB820 


ANDA 


#$7F 


STA 


,v+ 


CLP. 


,Y 


RTS 





FIRST DO COMMANDS 
CHECK FOR SECONDARY TOKEN 
BRANCH IF NON SECONDARY TOKEN 
GET SECONDARY TOKEN 
BUMP IT UP TO SECONDARY FUNCTIONS 
MASK OFF BIT 7 OF TOKEN 
MOVE TO NEXT COMMAND TABLE 
IS THIS TABLE ENABLED? 
NO - ILLEGAL TOKEN 

SUBTRACT THE NUMBER OF TOKENS FROM THE CURRENT TOKEN NUMBER 
BRANCH IF TOKEN NOT IN THIS TABLE 
RESTORE TOKEN NUMBER RELATIVE TO THIS TABLE 
POINT U TO COMMAND DICTIONARY TABLE 
DECREMENT TOKEN NUMBER 
BRANCH IF THIS IS THE CORRECT TOKEN 
TO START OF NEXT TOKEN 
GRAB A BYTE 

BRANCH IF BIT 7 NOT SET 
GO SEE IF THIS IS THE CORRECT TOKEN 
GET A CHARACTER FROM DICTIONARY TABLE 
PUT CHARACTER IN BUFFER 
CHECK FOR START OF NEXT TOKEN 
BRANCH IF NOT DONE KITH THIS TOKEN 
GO GET ANOTHER CHARACTER 
TEST FOR END OF LINE INPUT BUFFER 
BRANCH IF AT END OF BUFFER 
MASK OFF BIT 7 

* SAVE CHARACTER IN BUFFER AND 

* CLEAR NEXT CHARACTER SLOT IN BUFFER 



CRUNCH THE LINE THAT THE INPUT POINTER IS 
POINTING TO INTO THE LINE INPUT BUFFER 
RETURN LENGTH OF CRUNCHED LINE IN ACCD 



LB821 


JSR 


RVEC23 




LDX 


CHARAD 




LDU 


#LINBUF 


LB829 


CLR 


V43 




CLR 


V44 


LB82D 


LDA 


,x+ 




BEQ 


LB852 




TST 


V43 




BEQ 


LB844 




JSR 


LB3A2 




BCC 


LB852 




CMPA 


#'0 




BLO 


LB842 




CMPA 


#'9 




BLS 


LB852 


* END UP 


HERE IF 


: NOT UPPER CASE 


LB842 


CLR 


V43 


LB844 


CMPA 


#SPACE 




BEQ 


LB852 




STA 


V42 




CMPA 


#'" 




BEQ 


LB886 




TST 


V44 




BEQ 


LB86B 


LB852 


STA 


,l)+ 




BEQ 


LB85C 




CMPA 


tf : 




BEQ 


LB829 


LB85A 


BRA 


LB82D 


LB85C 


CLR 


,u+ 




CLR 


,l)+ 




TFR 


U,D 




SUBD 


#LINHDR 




LDX 


#LINBUF-1 




STX 


CHARAD 




RTS 




LB86B 


CMPA 


#'? 




BNE 


LB873 




LDA 


#$87 




BRA 


LB852 


LB873 


CMPA 


#' ' 




BNE 


LB88A 




LDD 


#»3A83 




STD 


,u++ 


LB87C 


CLR 


V42 


LB87E 


LDA 


,x+ 




BEQ 


LB852 




CMPA 


V42 




BEQ 


LB852 


LB886 


STA 


,u+ 




BRA 


LB87E 


LB88A 


CMPA 


#'0 




BCS 


LB892 



HOOK INTO RAM 

GET BASIC'S INPUT POINTER ADDRESS 

POINT X TO LINE INPUT BUFFER 

CLEAR ILLEGAL TOKEN FLAG 

CLEAR DATA FLAG 

GET INPUT CHAR 

BRANCH IF END OF LINE 

* CHECK ILLEGAL TOKEN FLAG & BRANCH IF NOT 

* PROCESSING AN ILLEGAL TOKEN 

SET CARRY IF NOT UPPER CASE ALPHA 
BRANCH IF UPPER CASE ALPHA 

* DON T CRUNCH ASCII NUMERIC CHARACTERS 

* BRANCH IF NOT NUMERIC 

* BRANCH IF NUMERIC 
ALPHA OR NUMERIC 

CLEAR ILLEGAL TOKEN FLAG 

SPACE? 

DO NOT REMOVE SPACES 

SAVE INPUT CHARACTER AS SCAN DELIMITER 

CHECK FOR STRING DELIMITER 

BRANCH IF STRING 

* CHECK DATA FLAG AND BRANCH IF CLEAR 

* DO NOT CRUNCH DATA 
SAVE CHARACTER IN BUFFER 
BRANCH IF END OF LINE 

* CHECK FOR END OF SUBLINE 

* AND RESET FLAGS IF END OF SUBLINE 
GO GET ANOTHER CHARACTER 

* DOUBLE ZERO AT END OF LINE 

SAVE ADDRESS OF END OF LINE IN ACCD 
LENGTH OF LINE IN ACCD 

* SET THE INPUT POINTER TO ONE BEFORE 

* THE START OF THE CRUNCHED LINE 
EXIT 'CRUNCH' 

CHECK FOR "?" - PRINT ABBREVIATION 
BRANCH IF NOT PRINT ABBREVIATION 

* GET THE PRINT TOKEN AND SAVE IT 

* IN BUFFER 

APOSTROPHE IS SAME AS REM 
BRANCH IF NOT REMARK 
COLON, REM TOKEN 

SAVE IN BUFFER 

SET DELIMITER = (END OF LINE) 

SCAN TILL HE MATCH [V42] 

BRANCH IF END OF LINE 

DELIMITER? 

BRANCH OUT IF SO 

DON T CRUNCH REMARKS OR STRINGS 

GO GET MORE STRING OR REMARK 

* LESS THAN ASCII ZERO? 

* BRANCH IF SO 

= CHECK FOR NUMERIC VALUE, COLON OR SEMICOLON 



COLOR BASIC UNRAVELLED II 



ORIGIN:SPECTRAL ASSOC 
REVISED:12/13/1999 WALTER K ZYDHEK 



3561 


B890 


25 


C0 


3562 


B892 


38 


IF 


3563 


B894 


34 


58 


3564 


B896 


8F 


41 


3565 


B898 


CE 


81 16 


3566 








3567 


B89B 


8F 


42 


3568 


B89D 


33 


4A 


3569 


B89F 


A6 


C4 


3570 


B8A1 


27 


31 


3571 


B8A3 


10 


AE 41 


3572 


B8A6 


AE 


E4 


3573 


B8A8 


E6 


A8 


3574 


B8AA 


E8 


88 


3575 


B8AC 


27 


FA 


3576 


B8AE 


CI 


88 


3577 








3578 








3579 


B8B8 


26 


38 


3588 


B8B2 


32 


62 


3581 


B8B4 


35 


48 


3582 


B8B6 


DA 


42 


3583 








3584 


B8B8 


96 


41 


3585 


B8BA 


26 


86 


3586 


B8BC 


CI 


84 


3587 


B8BE 


26 


86 


3588 


B8C8 


86 


3A 


3589 


B8C2 


ED 


CI 


3598 


B8C4 


28 


94 


3591 


B8C6 


E7 


C8 


3592 


B8C8 


CI 


86 


3593 


B8CA 


26 


82 


3594 


B8CC 


8C 


44 


3595 


B8CE 


CI 


82 


3596 


B8D8 


27 


AA 


3597 


B8D2 


28 


86 


3598 








3599 


B8D4 


CE 


81 IB 


3688 


B8D7 


83 


41 


3681 


B8D9 


26 


C8 


3682 








3683 








3684 








3685 


B8DB 


35 


58 


3686 


B8DD 


A6 


88 


3687 


B8DF 


A7 


C8 


3688 


B8E1 


BD 


B3 A2 


3689 


B8E4 


25 


EC 


3618 


B8E6 


83 


43 


3611 


B8E8 


28 


E8 


3612 


B8EA 


8C 


42 


3613 


B8EC 


4A 




3614 


B8ED 


27 


AE 


3615 


B8EF 


31 


3F 


3616 


B8F1 


E6 


A8 


3617 


B8F3 


2A 


FC 


3618 


B8F5 


28 


AF 


3619 








3628 








3621 


B8F7 


27 


5F 


3622 


B8F9 


8D 


83 


3623 


B8FB 


8F 


6F 


3624 


B8FD 


39 




3625 


B8FE 


81 


48 


3626 


B988 


26 


85 


3627 


B982 


BD 


A5 54 


3628 


B985 


20 


0A 


3629 


B987 


81 


23 


3638 


3909 


26 


BD 


3631 


B98B 


BD 


A5 A5 


3632 


B98E 


BD 


A4 86 


3633 


B911 


9D 


A5 


3634 


B913 


27 


43 


3635 


B915 


BD 


B2 6D 


3636 


B918 


BD 


81 79 


3637 


B91B 


27 


48 


3638 


B91D 


81 


A4 


3639 


B91F 


27 


5D 


3648 


B921 


81 


2C 


3641 


B923 


27 


41 


3642 


B925 


81 


3B 


3643 


B927 


27 


6E 


3644 


B929 


BD 


Bl 56 


3645 


B92C 


96 


86 


3646 


B92E 


34 


82 


3647 


B938 


26 


86 


3648 


B932 


BD 


BD D9 


3649 


3935 


BD 


B5 16 



BCS 


LB852 


LEAX 


-1,X 


PSFIS 


u,x 


CLR 


V41 


LDU 


#COMVEC-l 


CLR 


V42 


LEAU 


18, u 


LDA 


,u 


BEQ 


LB8D4 


LDY 


1,U 


LDX 


,s 


LDB 


,v+ 


SUBB 


,x+ 


BEQ 


LB8A8 


CHPB 


#$88 


BNE 


LB8EA 


LEAS 


2,S 


PULS 


U 


ORB 


V42 


LDA 


V41 


BNE 


LB8C2 


CHPB 


#$84 


BNE 


LB8C6 


LDA 


#' : 


STD 


,U++ 


BRA 


LB85A 


STB 


,u+ 


CHPB 


#$86 


BNE 


LB8CE 


INC 


U44 


CHPB 


#$82 


BEQ 


LB87C 


BRA 


LB85A 



LB8D2 

* CHECK FOR A SECONDARY TOKEN 

LB8D4 LDU #C0HVEC-5 

COH U41 

BNE LB89B 



= AND INSERT IN BUFFER IF SO 

HOVE INPUT POINTER BACK ONE 

SAVE POINTERS TO INPUT STRING, OUTPUT STRING 

TOKEN FLAG 8 = COHHAND, FF = SECONDARY 

POINT U TO COMMAND INTERPRETATION 

TABLE FOR BASIC - 18 

INITIALIZE V42 AS TOKEN COUNTER 

MOVE TO NEXT COMMAND INTERPRETATION TABLE 

GET NUMBER OF COMMANDS 

GO DO SECONDARY FUNCTIONS IF NO COMHAND TABLE 

POINT Y TO COHHAND DICTIONARY TABLE 

GET POINTER TO INPUT STRING 

GET A BYTE FROH DICTIONARY TABLE 

SUBTRACT INPUT CHARACTER 

LOOP IF SAHE 

LAST CHAR IN RESERVED WORD TABLE HAD 

BIT 7 SET, SO IF HE HAVE $80 HERE 

THEN IT IS A GOOD COHPARE 

BRANCH IF NO MATCH - CHECK ANOTHER COMMAND 

DELETE OLD INPUT POINTER FROM STACK 

GET POINTER TO OUTPUT STRING 

OR IN THE TABLE POSITION TO HAKE THE TOKEN 

- NOTE THAT B ALREADY HAD $88 IN IT - 

* CHECK TOKEN FLAG AND BRANCH 

* IF SECONDARY 

IS IT ELSE TOKEN? 

NO 

PUT A COLON (SUBLINE) BEFORE ELSE TOKEN 

SECONDARY TOKENS PRECEEDED BY $FF 

GO PROCESS MORE INPUT CHARACTERS 

SAVE THIS TOKEN 

DATA TOKEN? 

NO 

SET DATA FLAG 

REM TOKEN? 

YES 

GO PROCESS MORE INPUT CHARACTERS 

NOH DO SECONDARY FUNCTIONS 

TOGGLE THE TOKEN FLAG 

BRANCH IF NOB CHECKING SECONDARY COMHANDS 



THIS CODE HILL PROCESS INPUT DATA HHICH CANNOT BE CRUNCHED AND SO 
IS ASSUMED TO BE ILLEGAL DATA OR AN ILLEGAL TOKEN 



LB91 
LB91 

LB91 



PULS 


X,U 


LDA 


,x+ 


STA 


,u+ 


JSR 


LB3A2 


BCS 


LB8D2 


COH 


V43 


BRA 


LB8D2 


INC 


V42 


DECA 




BEQ 


LB89D 


LEAY 


-1,Y 


LDB 


,v+ 


BPL 


LB8F1 


BRA 


LB8A6 


BEQ 


LB958 


BSR 


LB8FE 


CLR 


DEVNUH 


RTS 




CHPA 


#'e 


BNE 


LB987 


JSR 


LA554 


BRA 


LB911 


CHPA 


#'# 


BNE 


LB918 


JSR 


LA5A5 


JSR 


LA486 


JSR 


GETCCH 


BEQ 


LB958 


JSR 


LB26D 


JSR 


RVEC9 


BEQ 


LB965 


CHPA 


#$A4 


BEQ 


LB97E 


CHPA 


#' . 


BEQ 


LB966 


CHPA 


#' ; 


BEQ 


LB997 


JSR 


LB156 


LDA 


VALTYP 


PSFIS 


A 


BNE 


LB938 


JSR 


LBDD9 


JSR 


LB516 



RESTORE INPUT AND OUTPUT POINTERS 

* HOVE THE FIRST CHARACTER OF AN 

* ILLEGAL TOKEN 

SET CARRY IF NOT ALPHA 

BRANCH IF NOT ALPHA 

SET ILLEGAL TOKEN FLAG IF UPPER CASE ALPHA 

PROCESS HORE INPUT CHARACTERS 

INCREMENT TOKEN COUNTER 

DECR COMMAND COUNTER 

GET ANOTHER COMHAND TABLE IF DONE H/THIS ONE 

HOVE POINTER BACK ONE 

* GET TO NEXT 

* RESERVED HORD 

GO SEE IF THIS HORD IS A MATCH 



BRANCH IF NO ARGUMENT 
CHECK FOR ALL PRINT OPTIONS 
SET DEVICE NUMBER TO SCREEN 

CHECK FOR PRINT S 

NOT PRINT 6 

MOVE CURSOR TO PROPER PRINT LOCATION 

GO PRINT THE DATA 

CHECK FOR PRINT NUMBER 

NOT PRINT# 

CHECK FOR A VALID DEVICE NUMBER 

CHECK FOR A VALID OUTPUT FILE 

GET CURRENT INPUT CHARACTER 

BRANCH IF END OF LINE 

SYNTAX CHECK FOR COMMA 

HOOK INTO RAM 

RETURN IF END OF LINE 

TOKEN FOR TAB( ? 

YES 

COMHA? 

YES - ADVANCE TO NEXT TAB FIELD 

SEMICOLON? 

YES - DO NOT ADVANCE CURSOR 

EVALUATE EXPRESSION 

* GET VARIABLE TYPE AND 

* SAVE IT ON THE STACK 
BRANCH IF STRING VARIABLE 

CONVERT FP NUMBER TO AN ASCII STRING 
PARSE A STRING FROM (X-l) AND PUT 



COLOR BASIC UNRAVELLED II 



ORIGIN:SPECTRAL ASSOC 
REVISED:12/13/1999 WALTER K ZYDHEK 



3650 










3651 


3938 


8D 


65 




3652 


B93A 


35 


04 




3653 


B93C 


BD 


A3 


5F 


3654 


B93F 


0D 


6E 




3655 


B941 


27 


06 




3656 


B943 


80 


13 




3657 


B945 


9D 


A5 




3658 


B947 


20 


D2 




3659 


B949 


5D 






3660 


B94A 


26 


08 




3661 


B94C 


90 


A5 




3662 


B94E 


81 


2C 




3663 


B950 


27 


14 




3664 


B952 


8D 


58 




3665 


B954 


9D 


A5 




3666 


B956 


26 


C5 




3667 


B958 


86 


0D 




3668 


B95A 


20 


55 




3669 


B95C 


BD 


A3 


5F 


3670 


B95F 


27 


F7 




3671 


B961 


96 


6C 




3672 


B963 


26 


F3 




3673 


B965 


39 






3674 










3675 


B966 


BD 


A3 


5F 


3676 


B969 


27 


0A 




3677 


B96B 


D6 


6C 




3678 


B96D 


Dl 


6B 




3679 


B96F 


25 


06 




3680 


B971 


8D 


E5 




3681 


B973 


20 


22 




3682 


B975 


D6 


6C 




3683 


B977 


D0 


6A 




3684 


B979 


24 


FC 




3685 


B97B 


50 






3686 










3687 


B97C 


20 


10 




3688 










3689 










3690 


B97E 


BD 


B7 


09 


3691 


B981 


81 


29 




3692 


B983 


10 


26 


F8 


3693 


B987 


BD 


A3 


5F 


3694 


B98A 


D0 


6C 




3695 


B98C 


23 


09 




3696 


B98E 


0D 


6E 




3697 


3990 


26 


05 




3698 


B992 


8D 


18 




3699 


B994 


5A 






3700 


B995 


26 


FB 




3701 


B997 


9D 


9F 




3702 


B999 


7E 


B9 


IB 


3703 










3704 


B99C 


BD 


B5 


18 


3705 










3706 


B99F 


BD 


B6 


57 


3707 










3708 


B9A2 


5C 






3709 


B9A3 


5A 






3710 


B9A4 


27 


BF 




3711 


B9A6 


A6 


80 




3712 


B9A8 


8D 


07 




3713 


B9AA 


20 


F7 




3714 


B9AC 


86 


20 




3715 


B9AE 


8C 






3716 


B9AF 


86 


3F 




3717 


B9B1 


7E 


A2 


82 


3718 










3719 










3720 










3721 










3722 


B9B4 


8E 


BE 


C0 


3723 


B9B7 


20 


09 




3724 










3725 










3726 


B939 


BD 


BB 


2F 


3727 










3728 










3729 










3730 


B9BC 


03 


54 




3731 


B9BE 


03 


62 




3732 


B9C0 


20 


03 




3733 










3734 










3735 


B9C2 


BD 


BB 


2F 


3736 










3737 










3738 













PULS 


B 




JSR 


LA35F 




TST 


PRTDEV 




BEQ 


LB949 




BSR 


LB958 




JSR 


GETCCH 




BRA 


LB91B 


.949 


TSTB 






BNE 


LB954 




JSR 


GETCCH 




CHPA 


#' . 




BEQ 


LB966 




BSR 


LB9AC 


.954 


JSR 


GETCCH 




BNE 


LB91D 


i958 


LDA 


#CR 




BRA 


LB9B1 


i95C 


JSR 


LA35F 




BEQ 


LB958 




LDA 


DEVPOS 




BNE 


LB958 


;965 


RTS 




SKIP 


TO NEXT 


TAB FIELD 


.966 


JSR 


LA35F 




BEQ 


LB975 




LDB 


DEVPOS 




CHPB 


DEVLCF 




BCS 


LB977 




BSR 


LB958 




BRA 


LB997 


;975 


LDB 


DEVPOS 


;977 


SUBB 


DEVCFH 




BCC 


LB977 



PRINT 


TAB( 




;97E 


JSR 


LB709 




CHPA 


#' ) 




LBNE 


LB277 




JSR 


LA36F 




SUBB 


DEVPOS 




BLS 


LB997 


;98E 


TST 


PRTDEV 




BNE 


LB997 


;992 


BSR 

DECB 


LB9AC 




BNE 


LB992 


i997 


JSR 


GETNCH 




JHP 


LB91B 


copy , 


\ STRING 


FROM (X) 


;99C 


JSR 


LB518 



TO CONSOLE OUT 



INCB 




DECB 




BEQ 


LB965 


LDA 


,x+ 


BSR 


LB9B1 


BRA 


LB9A3 


LDA 


#SPACE 


FCB 


SKP2 


LDA 


#'? 


JHP 


PUTCHR 



FLOATING POINT HATH PACKAGE 

ADD .5 TO FPA0 

B9B4 LDX #LBEC0 
BRA LB9C2 
SUBTRACT FPA0 FROH FP NUHBER POINTED 
TO BY (X), LEAVE RESULT IN FPA0 

B9B9 JSR LBB2F 



DESCRIPTOR ON STRING STACK 
PRINT STRING POINTED TO BY X 
GET VARIABLE TYPE BACK 
SET UP TAB HIDTH ZONE, ETC 

* CHECK THE PRINT DEVICE 

* AND BRANCH IF NOT CASSETTE 

SEND A CARRIAGE RETURN TO CONSOLE OUT 

GET CURRENT INPUT CHARACTER 

CHECK FOR HORE PRINT DATA 

CHECK CURRENT PRINT POSITION 

BRANCH IF NOT AT START OF LINE 

GET CURRENT INPUT CHARACTER 

COHHA? 

SKIP TO NEXT TAB FIELD 

SEND A SPACE TO CONSOLE OUT 

GET CURRENT INPUT CHARACTER 

BRANCH IF NOT END OF LINE 

* SEND A CR TO 

* CONSOLE OUT 

SET UP TAB HIDTH, ZONE ETC 

BRANCH IF HIDTH = ZERO 

GET PRINT POSITION 

BRANCH IF NOT AT START OF LINE 



SET UP TAB HIDTH, ZONE ETC 

BRANCH IF LINE HIDTH = (CASSETTE) 

GET CURRENT POSITION 

COHPARE TO LAST TAB ZONE 

BRANCH IF < LAST TAB ZONE 

SEND A CARRIAGE RETURN TO CONSOLE OUT 

GET HORE DATA 

* SUBTRACT TAB FIELD HIDTH FROH CURRENT 

* POSITION UNTIL CARRY SET - NEGATING THE 

* REHAINDER LEAVES THE NUHBER OF SPACES TO NEXT 

* TAB ZONE IN ACCB 

GO ADVANCE TO NEXT TAB ZONE 



EVALUATE EXPRESSION - RETURN VALUE IN B 

* 'SYNTAX' ERROR IF NOT ' )' 

SET UP TAB HIDTH, ZONE ETC 

GET DIFFERENCE OF PRINT POSITION & TAB POSITION 

BRANCH IF TAB POSITION < CURRENT POSITION 

* GET PRINT DEVICE NUHBER AND 

* BRANCH IF CASSETTE 

SEND A SPACE TO CONSOLE OUT 

DECREHENT DIFFERENCE COUNT 

BRANCH UNTIL CURRENT POSITION = TAB POSITION 

GET NEXT CHARACTER FROH BASIC 

LOOK FOR HORE PRINT DATA 

PARSE A STRING FROH X AND PUT 

DESCRIPTOR ON STRING STACK 

GET LENGTH OF STRING AND REHOVE 

DESCRIPTOR FROH STRING STACK 

COHPENSATE FOR DECB BELOH 

DECREHENT COUNTER 

EXIT ROUTINE 

GET A CHARACTER FROH X 

SEND TO CONSOLE OUT 

KEEP LOOPING 

SPACE TO CONSOLE OUT 

SKIP NEXT THO BYTES 

QUESTION HARK TO CONSOLE OUT 

JUHP TO CONSOLE OUT 



FLOATING POINT CONSTANT (.5) 
ADD .5 TO FPA0 



COPY PACKED FP DATA FROH (X) TO FPA1 



ARITHHETIC OPERATION (-) JUHPS HERE - SUBTRACT FPAB FROH FPA1 (ENTER 
HITH EXPONENT OF FPAB IN ACCB AND EXPONENT OF FPA1 IN ACCA) 



B9BC COH FP0SGN 
COH RESSGN 
BRA LB9C5 
ADD FP NUHBER POINTED TO BY 
(X) TO FPA0 - LEAVE RESULT IN FPA0 
B9C2 JSR LBB2F 



CHANGE HANTISSA SIGN OF FPA0 
REVERSE RESULT SIGN FLAG 
GO ADD FPA1 AND FPA0 



UNPACK PACKED FP DATA FROH (X) TO 
FPA1; RETURN EXPONENT OF FPA1 IN ACCA 



ARITHHETIC OPERATION (+) JUHPS HERE - ADD FPA0 TO 
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96 


53 
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96 


63 


3799 
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97 


53 


3800 


BA31 


0F 


63 


3801 


BA33 


CB 


08 


3802 


BA35 


CI 


28 


3803 


BA37 


2D 


E4 


3804 


BA39 


4F 




3805 


BA3A 


97 


4F 


3806 


BA3C 


97 


54 


3807 


BA3E 


39 




3808 


BA3F 


8D 


6D 


3809 


BA41 


5F 




3810 
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20 


A8 


3811 
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3813 


BA44 


5C 




3814 


BA45 


08 


63 


3815 


BA47 


09 


53 


3816 


BA49 


09 


52 


3817 


BA4B 


09 


51 


3818 


BA4D 


09 


50 


3819 


BA4F 


2A 


F3 


3820 


BA51 


96 


4F 


3821 


BA53 


34 


04 


3822 


BA55 


A0 


E0 


3823 


BA57 


97 


4F 


3824 


BA59 


23 


DE 


3825 








3826 








3827 


BA5B 


8C 





* FPA1 


(ENTER KITH EXPONENT OF FPA0 IN Al 


LB9C5 


TSTB 






LBEQ 


LBC4A 




LDX 


#FP1EXP 


LB9CD 


TFR 
TSTB 


A,B 




BEQ 


LBA3E 




SUBB 


FP0EXP 




BEQ 


LBA3F 




BCS 


LB9E2 




STA 


FP0EXP 




LDA 


FP1SGN 




STA 


FP0SGN 




LDX 


#FP0EXP 




NEGB 




LB9E2 


CMPB 


#-8 




BLE 


LBA3F 




CLRA 






LSR 


1,X 




JSP. 


LBABA 


LB9EC 


LDB 


RESSGN 




BPL 


LB9FB 




COM 


1,X 




COM 


2,X 




COM 


3,X 




COM 


4,X 




COMA 






ADCA 


#0 


* THE 


PREVIOUS TWO BYTES MAY BE REPLACED 


* ADD 


MANTISSAS 


OF FPA0 AND FPA1, PUT RE: 


LB9FB 


STA 


FPSBYT 




LDA 


FPA0+3 




AOCA 


FPA1+3 




STA 


FPA0+3 




LDA 


FPA0+2 




ADCA 


FPA1+2 




STA 


FPA0+2 




LDA 


FPA0+1 




AOCA 


FPA1+1 




STA 


FPA0+1 




LDA 


FPA0 




ADCA 


FPA1 




STA 


FPA0 




TSTB 






BPL 


LBA5C 


LBA18 


BCS 


LBA1C 




BSR 


LBA79 


* NORMALIZE FPA0 


LBA1C 


CLRB 




LBA1D 


LDA 


FPA0 




BNE 


LBA4F 




LDA 


FPA0+1 




STA 


FPA0 




LDA 


FPA0+2 




STA 


FPA0+1 




LDA 


FPA0+3 




STA 


FPA0+2 




LDA 


FPSBYT 




STA 


FPA0+3 




CLR 


FPSBYT 




ADDB 


#8 




CMPB 


#5*8 




BLT 


LBA1D 


LBA39 


CLRA 




LBA3A 


STA 


FP0EXP 




STA 


FP0SGN 


LBA3E 


RTS 




LBA3F 


BSR 
CLRB 


LBAAE 




BRA 


LB9EC 


* SHIFT FPA0 LEFT ONE BIT ONTIL BIT 7 


* OF MATISSA MS 


BYTE = 1 


LBA44 


INCB 






ASL 


FPSBYT 




ROL 


FPA0+3 




ROL 


FPA0+2 




ROL 


FPA0+1 




ROL 


TPA0 


LBA4F 


BPL 


LBA44 




LDA 


FP0EXP 




PSHS 


B 




SUBA 


,s+ 




STA 


FP0EXP 




BLS 


LBA39 



B AND EXPONENT OF FPA1 IN ACCA 
CHECK EXPONENT OF FPA0 
COPY FPA1 TO FPA0 IF FPA0 = 
POINT X TO FPA1 

PUT EXPONENT OF FPA1 INTO ACCB 
CHECK EXPONENT 

RETURN IF EXPONENT = (ADDING TO FPA0) 
SUBTRACT EXPONENT OF FPA0 FROM EXPONENT OF FPA1 
BRANCH IF EXPONENTS ARE EQUAL 
BRANCH IF EXPONENT FPA0 > FPA1 
REPLACE FPA0 EXPONENT HITH FPA1 EXPONENT 

* REPLACE FPA0 MANTISSA SIGN 

* HITH FPA1 MANTISSA SIGN 
POINT X TO FPA0 

NEGATE DIFFERENCE OF EXPONENTS 

TEST DIFFERENCE OF EXPONENTS 

BRANCH IF DIFFERENCE OF EXPONENTS <= 8 

CLEAR OVERFLOM BYTE 

SHIFT MS BYTE OF MANTISSA; BIT 7 = 

GO SHIFT MANTISSA OF (X) TO THE RIGHT (B) TIMES 

GET SIGN FLAG 

BRANCH IF FPA0 AND FPA1 SIGNS ARE THE SAME 

* COMPLEMENT MANTISSA POINTED 

* TO BY (X) THE 

* ADCA BELOH KILL 

* CONVERT THIS OPERATION 

* INTO A NEG (MANTISSA) 

ADD ONE TO ACCA - COMA ALWAYS SETS THE CARRY FLAG 
Y A NEGA 



SAVE FPA SUB BYTE 

* ADD LS BYTE 

* OF MANTISSA 
SAVE IN FPA0 LSB 

* ADD NEXT BYTE 

* OF MANTISSA 
SAVE IN FPA0 

* ADD NEXT BYTE 

* OF MANTISSA 
SAVE IN FPA0 

* ADD MS BYTE 

* OF MANTISSA 
SAVE IN FPA0 
TEST SIGN FLAG 

BRANCH IF FPA0 & FPA1 SIGNS HERE ALIKE 
BRANCH IF POSITIVE MANTISSA 
NEGATE FPA0 MANTISSA 



CLEAR TEMPORARY EXPONENT ACCUMULATOR 
TEST MSB OF MANTISSA 
BRANCH IF <> 

* IF THE MSB IS 

* 0, THEN SHIFT THE 

* MANTISSA A WHOLE BYTE 

* AT A TIME. THIS 

* IS FASTER THAN ONE 

* BIT AT A TIME 

* BUT USES MORE MEMORY. 

* FPSBYT, THE CARRY IN 

* BYTE, REPLACES THE MATISSA LSB. 

SHIFTING ONE BYTE = 8 BIT SHIFTS; ADD 8 TO EXPONENT 

CHECK FOR 5 SHIFTS 

BRANCH IF < 5 SHIFTS, IF > 5, THEN MANTISSA = 

A ZERO EXPONENT = FLOATING POINT 

ZERO OUT THE EXPONENT 

ZERO OUT THE MANTISSA SIGN 



SHIFT FPA0 MANTISSA TO RIGHT 
CLEAR CARRY FLAG 



ADD ONE TO EXPONENT ACCUMULATOR 

SHIFT SUB BYTE ONE LEFT 

SHIFT LS BYTE 

SHIFT NS BYTE 

SHIFT NS BYTE 

SHIFT MS BYTE 

BRANCH IF NOT YET NORMALIZED 

GET CURRENT EXPONENT 

SAVE EXPONENT MODIFIER CAUSED BY NORMALIZATION 

SUBTRACT ACCUMULATED EXPONENT MODIFIER 

SAVE AS NEM EXPONENT 

SET FPA0 = IF THE NORMALIZATION CAUSED 

MORE OR EQUAL NUMBER OF LEFT SHIFTS THAN THE 

SIZE OF THE EXPONENT 

SKIP 2 BYTES 



COLOR BASIC UNRAVELLED II 



ORIGIN:SPECTRAL ASSOC 
REVISED:12/13/1999 WALTER K ZYDHEK 



3828 


BA5C 


25 


08 


3829 


BA5E 


08 


63 


3830 








3831 


BA60 


86 


00 


3832 


BA62 


97 


63 


3833 


BA64 


20 


0C 


3834 


BA66 


0C 


4F 


3835 


BA68 


27 


28 


3836 


BA6A 


06 


50 


3837 


BA6C 


06 


51 


3838 


BA6E 


06 


52 


3839 


BA70 


06 


53 


3840 


BA72 


24 


04 


3841 


BA74 


8D 


0D 


3842 


BA76 


27 


EE 


3843 


BA78 


39 




3844 








3845 


BA79 


03 


54 


3846 


BA7B 


03 


50 


3847 


BA7D 


03 


51 


3848 


BA7F 


03 


52 


3849 


BA81 


03 


53 


3850 








3851 


BA83 


9E 


52 


3852 


BA85 


30 


01 


3853 


BA87 


9F 


52 


3854 


BA89 


26 


06 


3855 


BA8B 


9E 


50 


3856 


BA8D 


30 


01 


3857 


BA8F 


9F 


50 


3858 


BA91 


39 




3859 


BA92 


C6 


0A 


3860 


BA94 


7E 


AC 46 


3861 


BA97 


8E 


00 12 


3862 








3863 








3864 








3865 








3866 








3867 


BA9A 


A6 


04 


3868 


BA9C 


97 


63 


3869 


BA9E 


A6 


03 


3870 


BAA0 


A7 


04 


3871 


BAA2 


A6 


02 


3872 


BAA4 


A7 


03 


3873 


BAA6 


A6 


01 


3874 


BAA8 


A7 


02 


3875 


BAAA 


96 


5B 


3876 


BAAC 


A7 


01 


3877 


BAAE 


CB 


08 


3878 


BAB0 


2F 


E8 


3879 


BAB2 


96 


63 


3880 


BAB4 


C0 


08 
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27 
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3895 








3896 


BACA 


8D 


63 


3897 


BACC 


27 


60 


3898 


BACE 


8D 


78 


3899 
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3902 
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97 
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BAD8 
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D6 


53 
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8D 


22 


3910 


BADE 


D6 


63 


3911 


BAE0 


D7 


AE 


3912 


BAE2 


D6 


52 


3913 


BAE4 


8D 


1A 


3914 


BAE6 


D6 


63 


3915 


BAE8 


D7 


AD 


3916 


BAEA 


D6 


51 



BA5C 


BCS 


LBA66 




ASL 


FPSBYT 




LDA 


#0 




STA 


FPSBYT 




BRA 


LBA72 


LBA66 


INC 


FPBEXP 




BEO 


LBA92 




ROR 


FPA0 




ROR 


FPA0+1 




ROR 


FPA0+2 




ROR 


FPA0+3 


LBA72 


BCC 


LBA78 




BSR 


LBA83 




BEQ 


LBA66 


LBA78 


RTS 




* NEGATE 


FPA0 MANTISSA 


LBA79 


COM 


FP0SGN 


LBA7B 


COM 


FPA0 




COM 


FPA0+1 




COM 


FPA0+2 




COM 


FPA0+3 


* ADD ONE 


TO FPA0 MANTISSA 


LBA83 


LDX 


FPA0+2 




LEAX 


1,X 




STX 


FPA0+2 




BNE 


LBA91 




LDX 


FPA0 




LEAX 


1,X 




STX 


FPA0 


LBA91 


RTS 




LBA92 


LDB 


#2*5 




JMP 


LAC46 


LBA97 


LDX 


#FPA2-1 


* SHIFT FPA POINTED TO BY (X) TO 


* THE RIGHT -(B) TIMES. EXIT UITH 


* ACCA CONTAINING DATA SHIFTED OUT 


* TO THE 


RIGHT 


(SUB BYTE) AND THE DATA 


* SHIFTED 


IN FROM THE LEFT HILL COME F 


LBA9A 


LDA 


4,X 




STA 


FPSBYT 




LDA 


3,X 




STA 


4,X 




LDA 


2,X 




STA 


3,X 




LDA 


1,X 




STA 


2,X 




LDA 


FPCARY 




STA 


1,X 


LBAAE 


ADDB 


#8 




BLE 


LBA9A 




LDA 


FPSBYT 




SUBB 


#8 




BEQ 


LBAC4 


* SHIFT MANTISSA POINTED TO BY (X) TO 


$ THE RIGHT (B) 


TIMES. OVERFLOM RETAIN 


LBAB8 


ASR 


1,X 


LBABA 


ROR 


2,X 




ROR 


3,X 




ROR 


4,X 




RORA 






INCB 






BNE 


LBAB8 


LBAC4 


RTS 




LBAC5 


FCB 


$81, $00, $00, $00, $00 


* ARITHMETIC OPERATION (*) JUMPS HERE 


* FPA0 BY 


(X) - 


RETURN PRODUCT IN FPA0 


LBACA 


BSR 


LBB2F 




BEQ 


LBB2E 




BSR 


LBB48 



BRANCH IF MANTISSA OVERFLOW 

SUB BYTE BIT 7 TO CARRY - USE AS ROUND-OFF 

FLAG (TRUNCATE THE REST OF SUB BYTE) 

CLRA, BUT DO NOT CHANGE CARRY FLAG 

CLEAR THE SUB BYTE 

GO ROUND-OFF RESULT 

INCREMENT EXPONENT - MULTIPLY BY 2 

OVERFLOM ERROR IF CARRY PAST $FF 

* SHIFT MANTISSA 

* ONE TO 

* THE RIGHT - 

* DIVIDE BY TWO 

BRANCH IF NO ROUND-OFF NEEDED 
ADD ONE TO MANTISSA - ROUND OFF 
BRANCH IF OVERFLOM - MANTISSA = 



TOGGLE SIGN OF MANTISSA 

* COMPLEMENT ALL 4 MANTISSA 



* GET BOTTOM 2 MANTISSA 

* BYTES, ADD ONE TO 

* THEM AND SAVE THEM 
BRANCH IF NO OVERFLOM 

* IF OVERFLOM ADD ONE 

* TO TOP 2 MANTISSA 

* BYTES AND SAVE THEM 



'OV OVERFLOM ERROR 
PROCESS AN ERROR 
POINT X TO FPA2 



ROM FPCARY 

GET LS BYTE OF MANTISSA (X) 
SAVE IN FPA SUB BYTE 

* SHIFT THE NEXT THREE BYTES OF THE 

* MANTISSA RIGHT ONE COMPLETE BYTE. 



GET THE CARRY IN BYTE 

STORE AS THE MS MANTISSA BYTE OF (X) 

ADD 8 TO DIFFERENCE OF EXPONENTS 

BRANCH IF EXPONENT DIFFERENCE < -8 

GET FPA SUB BYTE 

CAST OUT THE 8 ADDED IN ABOVE 

BRANCH IF EXPONENT DIFFERENCE = 

ED IN ACCA. 

* SHIFT MANTISSA AND SUB BYTE ONE BIT TO THE RIGHT 



ADD ONE TO EXPONENT DIFFERENCE 
BRANCH IF EXPONENTS NOT = 



FLOATING POINT CONSTANT 1. 



MOVE PACKED FPA FROM (X) TO FPA1 
BRANCH IF EXPONENT OF FPA0 = 
CALCULATE EXPONENT OF PRODUCT 



MULTIPLY FPA0 MANTISSA BY FPA1. NORMALIZE 
HIGH ORDER BYTES OF PRODUCT IN FPA0. THE 
LOM ORDER FOUR BYTES OF THE PRODUCT MILL 
BE STORED IN VAB-VAE. 



LDA 


#0 


STA 


FPA2 


STA 


FPA2+1 


STA 


FPA2+2 


STA 


FPA2+3 


LDB 


FPA0+3 


BSR 


LBB00 


LDB 


FPSBYT 


STB 


VAE 


LDB 


FPA0+2 


BSR 


LBB00 


LDB 


FPSBYT 


STB 


VAD 


LDB 


FPA0+1 



ZERO OUT MANTISSA OF FPA2 



GET LS BYTE OF FPA0 
MULTIPLY BY FPA1 

* TEMPORARILY SAVE SUB BYTE 4 

GET NUMBER 3 MANTISSA BYTE OF FPA0 
MULTIPLY BY FPA1 

* TEMPORARILY SAVE SUB BYTE 3 

GET NUMBER 2 MANTISSA BYTE OF FPA0 
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96 


13 
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99 


5D 
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97 


13 
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BB23 


06 


14 


3949 
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06 


15 


3958 
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06 
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3951 


BB29 


06 


63 
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4F 
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BB2C 


20 
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3954 


BB2E 


39 




3955 








3956 


BB2F 


EC 


01 


3957 








3958 


BB31 


97 


61 


3959 


BB33 


8A 


80 


3968 


BB35 


DD 


5D 


3961 


BB37 


D6 


61 


3962 


3339 


D8 


54 


3963 


BB3B 


D7 


62 


3964 








3965 


BB3D 


EC 


03 


3966 


BB3F 


DD 


5F 


3967 


BB41 


A6 


84 


3968 


BB43 


97 


5C 


3969 


BB45 


D6 


4F 


3978 


BB47 


39 




3971 








3972 








3973 


BB48 


4D 




3974 


BB49 


27 


16 


3975 


BB4B 


9B 


4F 


3976 


BB4D 


46 




3977 


BB4E 


49 




3978 


BB4F 


28 


10 


3979 


BB51 


8B 


80 


3988 


BB53 


97 


4F 


3981 


BB55 


27 


0C 


3982 


BB57 


96 


62 


3983 


BB59 


97 


54 


3984 


BB5B 


39 




3985 








3986 








3987 


BB5C 


96 


54 


3988 


BB5E 


43 




3989 


BB5F 


20 


02 


3998 


BB61 


32 


62 


3991 


BB63 


10 


2A FE 


3992 


BB67 


7E 


BA 92 


3993 








3994 


BB6A 


BD 


BC 5F 


3995 


BB6D 


27 


0D 


3996 


BB6F 


8B 


02 


3997 


BB71 


25 


F4 


3998 


BB73 


0F 


62 


3999 


BB75 


BD 


B9 CD 



LDB 


FPSBYT 


STB 


VAC 


LDB 


TPA0 


BSR 


LBB02 


LDB 


FPSBYT 


STB 


VAB 


JSR 


LBC0B 


JHP 


LBA1C 


:08 BEQ 


LBA97 


;82 COMA 




IULTI PLY FPA1 


MANTISSA BY ACCI 


,DD PRODUCT TC 


) FPA2 MANTISSA 


:83 LDA 


FPA2 


RORB 





LDA 


FPA2+3 


ADDA 


FPA1+3 


STA 


FPA2+3 


LDA 


FPA2+2 


ADCA 


FPA1+2 


STA 


FPA2+2 


LDA 


FPA2+1 


ADCA 


FPA1+1 


STA 


FPA2+1 


LDA 


FPA2 


ADCA 


FPA1 


RORA 




STA 


FPA2 


ROR 


FPA2+1 


ROR 


FPA2+2 


ROR 


FPA2+3 


ROR 


FPSBYT 


CLRA 





MULTIPLY BY FPA1 

* TEMPORARILY SAVE SUB BYTE 2 

GET MS BYTE OF FPA8 MANTISSA 
MULTIPLY BY FPA1 

* TEMPORARILY SAVE SUB BYTE 1 

COPY MANTISSA FROM FPA2 TO FPAB 
NORMALIZE FPAB 

SHIFT FPA2 ONE BYTE TO RIGHT 
SET CARRY FLAG 



GET FPA2 MS BYTE 

ROTATE CARRY FLAG INTO SHIFT COUNTER 

DATA BIT INTO CARRY 

BRANCH WHEN 8 SHIFTS DONE 

DO NOT ADD FPA1 IF DATA BIT = 8 

* ADD MANTISSA LS BYTE 



ADD MANTISSA NUMBER 3 BYTE 

ADD MANTISSA NUMBER 2 BYTE 

ADD MANTISSA MS BYTE 
ROTATE CARRY INTO MS BYTE 
ROTATE FPA2 ONE BIT TO THE RIGHT 



* UNPACK A FP NUMBER FROM (X) TO 
LBB2F LDD 1,X 



8C 4F 
27 EB 





STA 


FP1SGN 




ORA 


#$88 




STD 


FPA1 




LDB 


FP1SGN 




EORB 


FPBSGN 




STB 


RESSGN 




LDD 


3,X 




STD 


FPA1+2 




LDA 


,K 




STA 


FP1EXP 




LDB 


FP8EXP 




RTS 




CALCULATE EXPONENT FOR PRODUC" 


ENTER WITH EXPONENT OF FPA1 I[ 


1B48 


TSTA 






BEQ 


LBB61 




ADDA 


FPBEXP 




RORA 






ROLA 






BVC 


LBB61 




ADDA 


#»88 




STA 


FPBEXP 




BEO 


LBB63 




LDA 


RESSGN 




STA 


FPBSGN 




RTS 




IF FPAB = POSITIVE THEN 'OV 


= IS 


NEGATIVE 


THEN FPAB = 8 


:B5C 


LDA 

COMA 


FPBSGN 




BRA 


LBB63 


IB61 


LEAS 


2,S 


IB63 


LBPL 


LBA39 


IB67 


JMP 


LBA92 


FAST 


MULTIPLY 


BY IB AND LEAVE 


B6A 


JSR 


LBC5F 




BEQ 


LBB7C 




ADDA 


#2 




BCS 


LBB67 




CLR 


RESSGN 




JSR 


LB9CD 




INC 


FPBEXP 




BEQ 


LBB67 


IB7C 


RTS 




;B7D 


FCB 


$84,$2B,»8B,»8E 


DIVIDE FPAB BY IB 


:B82 


JSR 


LBC5F 



CLEAR CARRY FLAG 
KEEP LOOPING 



GET TUO MSB BYTES OF MANTISSA FROM 

FPA POINTED TO BY X 

SAVE PACKED MANTISSA SIGN BYTE 

FORCE BIT 7 OF MSB MANTISSA = 1 

SAVE 2 MSB BYTES IN FPA1 

* GET PACKED MANTISSA SIGN BYTE. EOR M/FPAB 



* SIGN - NEK SIGN POSITION IF 

* NEG IF BOTH OLD SIGNS DIFF. 

* MANTISSA SIGN BYTE 

= GET 2 LSB BYTES OF MANTISSA 
= AND PUT IN FPA1 

* GET EXPONENT FROM (X) AND 

* PUT IN EXPONENT OF FPA1 
GET EXPONENT OF FPAB 



BOTH OLD SIGNS ALIKE, 
SAVE ADJUSTED 



OF FPAB i FPA1 
ACCA 



TEST EXPONENT OF FPA1 

PURGE RETURN ADDRESS & SET FPAB = B 

ADD FPA1 EXPONENT TO FPAB EXPONENT 

ROTATE CARRY INTO BIT 7; BIT B INTO CARRY 

SET OVERFLOW FLAG 

BRANCH IF EXPONENT TOO LARGE OR SMALL 

ADD $88 BIAS TO EXPONENT 

SAVE NEW EXPONENT 

SET FPAB 

GET MANTISSA SIGN 

SAVE AS MANTISSA SIGN OF FPAB 

ERROR IF FPAB 

GET MANTISSA SIGN OF FPAB 
CHANGE SIGN OF FPAB MANTISSA 

PURGE RETURN ADDRESS FROM STACK 
ZERO FPAB MANTISSA SIGN & EXPONENT 
'OV OVERFLOW ERROR 
RESULT IN FPAB 

TRANSFER FPAB TO FPA1 
BRANCH IF EXPONENT = B 
ADD 2 TO EXPONENT (TIMES 4) 
'OV ERROR IF EXPONENT > $FF 
CLEAR RESULT SIGN BYTE 
ADD FPA1 TO FPAB (TIMES 5) 
ADD ONE TO EXPONENT (TIMES IB) 
'OV ERROR IF EXPONENT > $FF 

J, $88 FLOATING POINT CONSTANT 18 

MOVE FPAB TO FPA1 
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D7 62 
BD BC 14 





LDX 


#LBB7D 




CLRB 




;B89 


STB 


RESSGN 




JSR 


LBC14 




FCB 


SKP2 


DIVIDE 


(X) BY 


FPA0-LE 


;B8F 


BSR 


LBB2F 



POINT TO FLOATING POINT CONSTANT IB 
ZERO MANTISSA SIGN BYTE 
STORE THE QUOTIENT MANTISSA SIGN BYTE 
UNPACK AN FP NUMBER FROM (X) INTO FPA0 
SKIP TWO BYTES 
FPA0-LEAVE NORMALIZED QUOTIENT IN FPAB 

GET FP NUMBER FROM (X) TO FPA1 



ARITHMETIC OPERATION (/) JUMPS HERE. DIVIDE FPA1 
EXPONENT OF FPA1 IN ACCA AND FLAGS SET BY TSTA) 



;Y FPAB (ENTER WITH 



4018 


3391 


27 


73 


4019 


BB93 


00 


4F 


4020 


BB95 


80 


Bl 


4021 


BB97 


0C 


4F 


4022 


3399 


27 


CC 


4023 


BE9B 


8E 


00 13 


4024 








4025 


BB9E 


C6 


04 


4026 


BBA0 


D7 


03 


4027 


BBA2 


C6 


01 


4028 








4029 








4030 


BBA4 


96 


50 


4031 


BBA6 


91 


5D 


4032 


BBA8 


26 


13 


4033 


BBAA 


96 


51 


4034 


BBAC 


91 


5E 


4035 


BBAE 


26 


0D 


4036 


BBB0 


96 


52 


4037 


BBB2 


91 


5F 


4038 


BBB4 


26 


07 


4039 


BBB6 


96 


53 


4040 


BBB8 


91 


60 


4041 


BBBA 


26 


01 


4042 


BBBC 


43 




4043 


BBBD 


IF 


A8 



4048 


BBC4 


0A 


03 


4049 


BBC6 


2B 


34 


4050 


BBC8 


27 


2E 


4051 


BBCA 


C6 


01 


4052 


BBCC 


IF 


8A 


4053 


BBCE 


25 


0E 


4054 


BBD0 


08 


60 


4055 


BBD2 


09 


5F 


4056 


BBD4 


09 


5E 


4057 


BBD6 


09 


50 


4058 


BBD8 


25 


E3 


4059 


BBDA 


2B 


C8 


4060 








4061 


BBDC 


20 


DF 


4062 








4063 


BBDE 


96 


60 


4064 


BBE0 


90 


53 


4065 


BBE2 


97 


60 


4066 


BBE4 


96 


5F 


4067 


BBE6 


92 


52 


4068 


BBE8 


97 


5F 


4069 


BBEA 


96 


5E 


4070 


BBEC 


92 


51 


4071 


BBEE 


97 


5E 


4072 


BBF0 


96 


5D 


4073 


BBF2 


92 


50 


4074 


BBF4 


97 


5D 


4075 


BBF6 


20 


D8 


4076 


BBF8 


C6 


40 


4077 


BBFA 


20 


D0 


4078 


BBFC 


56 




4079 


BBFD 


56 




4080 


BBFE 


56 




4081 


BBFF 


D7 


63 


4082 


BC01 


8D 


08 


4083 


BC03 


7E 


BA 1C 


4084 


BC06 


C6 


14 


4085 


BC08 


7E 


AC 46 


4086 








4087 


BC0B 


9E 


13 


4088 


BC0D 


9F 


50 


4089 


BC0F 


9E 


15 


4090 


BC11 


9F 


52 


4091 


BC13 


39 




4092 








4093 


BC14 


34 


02 


4094 


BC16 


EC 


01 



DIVIDE 


FPA1 


BY FPA0 


;B91 


BEQ 


LBC06 




NEG 


FP0EXP 




BSR 


LBB48 




INC 


FP0EXP 




BEQ 


LBB67 




LDX 


#FPA2 




LDB 


#4 




STB 


TMPLOC 



* COM 

* SET 
LBBA4 



PARE FPA0 MANTISSA TO FPA1 MANT 
CARRY FLAG IF FPA1 >= FPA0 



LDA 

CMPA 

BNE 

LDA 

CMPA 

BNE 

LDA 

CMPA 

BNE 

LDA 

CMPA 

BNE 

COMA 

TFR 



FPA0 

FPA1 

LBBBD 

FPA0+1 

FPA1+1 

LBBBD 

FPA0+2 

FPA1+2 

LBBBD 

FPA0+3 

FPA1+3 



V0' DIVIDE BY ZERO ERROR 

GET EXPONENT OF RECIPROCAL OF DIVISOR 

CALCULATE EXPONENT OF QUOTIENT 

INCREMENT EXPONENT 

'OV OVERFLOW ERROR 

POINT X TO MANTISSA OF FPA2 - HOLD 

TEMPORARY QUOTIENT IN FPA2 

5 BYTE DIVIDE 

SAVE BYTE COUNTER 

SHIFT COUNTER-AND TEMPORARY QUOTIENT BYTE 



COMPARE THE TWO MS BYTES 

OF FPA0 AND FPA1 AND 

BRANCH IF <> 

COMPARE THE NUMBER 2 

BYTES AND 

BRANCH IF <> 

COMPARE THE NUMBER 3 

BYTES AND 

BRANCH IF <> 

COMPARE THE LS 

AND BRANCH 



BYTES 



IF 





STB 


,x+ 




DEC 


TMPLOC 




BMI 


LBBFC 




BEQ 


LBBF8 




LDB 


#1 


;BCC 


TFR 


A,CC 




BCS 


LBBDE 


;BD0 


ASL 


FPA1+3 




ROL 


FPA1+2 




ROL 


FPA1+1 




ROL 


FPA1 




BCS 


LBBBD 




BMI 


LBBA4 




BRA 


LBBBD 


SUBTRACT FPA0 


FROM FPA1 - LEAVE RESULT II 


;BDE 


LDA 


FPA1+3 




SUBA 


FPA0+3 




STA 


FPA1+3 




LDA 


FPA1+2 




SBCA 


FPA0+2 




STA 


FPA1+2 




LDA 


FPA1+1 




SBCA 


FPA0+1 




STA 


FPA1+1 




LDA 


FPA1 




SBCA 


FPA0 




STA 


FPA1 




BRA 


LBBD0 


;BF8 


LDB 


#$40 




BRA 


LBBCC 


;BFC 


RORB 
RORB 
RORB 






STB 


FPSBYT 




BSR 


LBC0B 




JMP 


LBA1C 


■ C06 


LDB 


#2*10 




JMP 


LAC46 


COPY 


MANTISSA 


FROM FPA2 TO FPA0 


;C0B 


LDX 


FPA2 




STX 


FPA0 




LDX 


FPA2+2 




STX 


FPA0+2 




RTS 




COPY 


A PACKED 


FP NUMBER FROM (X) TO FPA0 


;C14 


PSHS 


A 




LDD 


1,X 



SET CARRY FLAG IF FPA0 = FPA1 

SAVE CARRY FLAG STATUS IN ACCA; CARRY 

CLEAR IF FPA0 > FPA1 

ROTATE CARRY INTO TEMPORARY QUOTIENT BYTE 

CARRY HILL BE SET AFTER 8 SHIFTS 

SAVE TEMPORARY QUOTIENT 

DECREMENT BYTE COUNTER 

BRANCH IF DONE 

BRANCH IF LAST BYTE 

RESET SHIFT COUNTER AND TEMPORARY QUOTIENT BYTE 

RESTORE CARRY FLAG AND 

BRANCH IF FPA0 =< FPA1 

* SHIFT FPA1 MANTISSA 1 BIT TO LEFT 



BRANCH IF CARRY - ADD ONE TO PARTIAL QUOTIENT 
IF MSB OF HIGH ORDER MANTISSA BYTE IS 
SET, CHECK THE MAGNITUDES OF FPA0, FPA1 
CARRY IS CLEAR, CHECK ANOTHER BIT 
I FPA1 
* SUBTRACT THE LS BYTES OF MANTISSA 



THEN THE NEXT BYTE 



AND THE NEXT 



AND FINALLY, THE MS BYTE OF MANTISSA 



GO SHIFT FPA1 

USE ONLY TWO BITS OF THE LAST BYTE (FIFTH) 

GO SHIFT THE LAST BYTE 

* SHIFT CARRY (ALWAYS SET HERE) INTO 

* BIT 5 AND MOVE 

* BITS 1,0 TO BITS 7,6 
SAVE SUB BYTE 

MOVE MANTISSA OF FPA2 TO FPA0 
NORMALIZE FPA0 
'/0' ERROR 
PROCESS THE ERROR 

* MOVE TOP 2 BYTES 

= MOVE BOTTOM 2 BYTES 



SAVE ACCA 

GET TOP TUO MANTISSA BYTES 
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4095 


BC18 


97 


54 


4096 


BC1A 


8A 


80 


4097 


BC1C 


DD 


50 


4098 


BC1E 


0F 


63 


4099 


BC20 


E6 


84 


4100 


BC22 


AE 


03 


4101 


BC24 


9F 


52 


4102 


BC26 


D7 


4F 


4103 


BC28 


35 


82 


4104 








4105 


BC2A 


8E 


00 


4106 


BC2D 


20 


06 


4107 


BC2F 


8E 


00 


4108 


BC32 


8C 




4109 


BC33 


9E 


3B 


4110 








4111 


BC35 


96 


4F 


4112 


BC37 


A7 


84 


4113 


BC39 


96 


54 


4114 


BC3B 


8A 


7F 


4115 


BC3D 


94 


50 


4116 


BC3F 


A7 


01 


4117 


BC41 


96 


51 


4118 


BC43 


A7 


02 


4119 


BC45 


DE 


52 


4120 


BC47 


EF 


03 


4121 


BC49 


39 




4122 








4123 


BC4A 


96 


61 


4124 


BC4C 


97 


54 


4125 


BC4E 


9E 


5C 


4126 


BC50 


9F 


4F 


4127 


BC52 


0F 


63 


4128 


BC54 


96 


5E 


4129 


BC56 


97 


51 


4130 


BC58 


96 


54 


4131 


BC5A 


9E 


5F 


4132 


BC5C 


9F 


52 


4133 


BC5E 


39 




4134 








4135 


BC5F 


DC 


4F 


4136 


BC61 


DD 


5C 


4137 


BC63 


9E 


51 


4138 


BC65 


9F 


5E 


4139 


BC67 


9E 


53 


4140 


BC69 


9F 


60 


4141 


BC6B 


4D 




4142 


BC6C 


39 




4143 








4144 








4145 


BC6D 


D6 


4F 


4146 


BC6F 


27 


08 


4147 


BC71 


D6 


54 


4148 


BC73 


59 




4149 


BC74 


C6 


FF 


4150 


BC76 


25 


01 


4151 


BC78 


50 




4152 


BC79 


39 




4153 








4154 








4155 


BC7A 


8D 


Fl 


4156 








4157 


BC7C 


D7 


50 


4158 


BC7E 


0F 


51 


4159 


BC80 


C6 


88 


4160 


BC82 


96 


50 


4161 


BC84 


80 


80 


4162 


BC86 


D7 


4F 


4163 


BC88 


DC 


8A 


4164 


BC8A 


DD 


52 


4165 


BC8C 


97 


63 


4166 


BC8E 


97 


54 


4167 


BC90 


7E 


BA 


4168 








4169 








4170 


BC93 


0F 


54 


4171 


BC95 


39 




4172 








4173 








4174 








4175 








4176 


BC96 


E6 


84 


4177 


BC98 


27 


03 


4178 


BC9A 


E6 


01 


4179 


BC9C 


D8 


54 


4180 


BC9E 


2B 


Dl 


4181 








4182 








4183 


BCA0 


D6 


4F 





STA 


FP0SGN 




ORA 


#$80 




STO 


FPA0 




CLR 


FPSBYT 




LDB 


,x 




LDX 


3,X 




STX 


FPA0+2 




STB 


FP0EXP 




PULS 


A, PC 


LBC2A 


LDX 


#V45 




BRA 


LBC35 


LBC2F 


LDX 


#V40 




FCB 


SKP2 


LBC33 


LDX 


VARDES 


* PACK 


FPA0 AND 


MOVE IT TO ADDRESS IN 


LBC35 


LDA 


FP0EXP 




STA 


,x 




LDA 


FP0SGN 




ORA 


#$7F 




ANDA 


FPA0 




STA 


1,X 




LDA 


FPA0+1 




STA 


2,X 




LDU 


FPA0+2 




STU 


3,X 




RTS 




* MOVE 


FPA1 TO 


r PA0 RETURN M/MANTISSA 


LBC4A 


LDA 


FP1SGN 


LBC4C 


STA 


FP0SGN 




LDX 


FP1EXP 




STX 


FP0EXP 




CLR 


FPSBYT 




LDA 


FPA1+1 




STA 


FPA0+1 




LDA 


FP0SGN 




LDX 


FPA1+2 




STX 


FPA0+2 




RTS 




* TRANSFER FPA0 


TO FPA1 


LBC5F 


LDD 


FP0EXP 




STD 


FP1EXP 




LDX 


FPA0+1 




STX 


FPA1+1 




LDX 


FPA0+3 




STX 


FPA1+3 




TSTA 






RTS 




* CHECt 


: FPA0; RETURN ACCB = IF FPA0 


* ACCB 


= $FF IF 


FPA0 = NEGATIVE, ACCB 


LBC6D 


LDB 


FP0EXP 




BEO 


LBC79 


LBC71 


LDB 


FP0SGN 


LBC73 


ROLB 






LDB 


#$FF 




BCS 


LBC79 




NEGB 




LBC79 


RTS 




* SGN 






SGN 


BSR 


LBC6D 


* CONVERT A SIGNED NUMBER IN ACCB INTI 


LBC7C 


STB 


FPA0 




CLR 


FPA0+1 




LDB 


#$88 


LBC82 


LDA 


FPA0 




SUBA 


#$80 


LBC86 


STB 


FP0EXP 




LDD 


ZERO 




STD 


FPA0+2 




STA 


FPSBYT 




STA 


FP0SGN 




JHP 


LBA18 


* ABS 






ABS 


CLR 


FP0SGN 



SAVE MS BYTE OF MANTISSA AS MANTISSA SIGN 

UNPACK MS BYTE 

SAVE UNPACKED TOP 2 MANTISSA BYTES 

CLEAR MANTISSA SUB BYTE 

GET EXPONENT TO ACCB 

* MOVE LAST 2 

* MANTISSA BYTES 
SAVE EXPONENT 
RESTORE ACCA AND RETURN 

POINT X TO MANTISSA OF FPA4 

MOVE FPA0 TO FPA4 

POINT X TO MANTISSA OF FPA3 

SKIP TWO BYTES 

POINT X TO VARIABLE DESCRIPTOR IN VARDES 

* COPY EXPONENT 

GET MANTISSA SIGN BIT 

MASK THE BOTTOM 7 BITS 

AND BIT 7 OF MANTISSA SIGN INTO BIT 7 OF MS BYTE 

SAVE MS BYTE 

* MOVE 2ND MANTISSA BYTE 

= MOVE BOTTOM 2 MANTISSA BYTES 



SIGN IN ACCA 

* COPY MANTISSA SIGN FROM 

* FPA1 TO FPA0 

= COPY EXPONENT + MS BYTE FROM 

= FPA1 TO FPA0 

CLEAR MANTISSA SUB BYTE 

* COPY 2ND MANTISSA BYTE 

* FROM FPA1 TO FPA0 
GET MANTISSA SIGN 

* COPY 3RD AND 4TH MANTISSA BYTE 

* FROM FPA1 TO FPA0 



* TRANSFER EXPONENT & MS BYTE 
= TRANSFER MIDDLE TWO BYTES 

* TRANSFER BOTTOM TWO BYTES 
SET FLAGS ACCORDING TO EXPONENT 



1 IF FPA0 = POSITIVE 
GET EXPONENT 
BRANCH IF FPA0 = 
GET SIGN OF MANTISSA 
BIT 7 TO CARRY 
NEGATIVE FLAG 

BRANCH IF NEGATIVE MANTISSA 
ACCB = 1 IF POSITIVE MANTISSA 



FPA0 



SET ACCB ACCORDING TO SIGN OF 
FLOATING POINT NUMBER 
SAVE ACCB IN FPA0 

CLEAR NUMBER 2 MANTISSA BYTE OF FPA0 
EXPONENT REQUIRED IF FPA0 IS TO BE AN INTEGER 
GET MS BYTE OF MANTISSA 
SET CARRY IF POSITIVE MANTISSA 
SAVE EXPONENT 

* ZERO OUT ACCD AND 

* BOTTOM HALF OF FPA0 
CLEAR SUB BYTE 

CLEAR SIGN OF FPA0 MANTISSA 
GO NORMALIZE FPA0 



FORCE MANTISSA SIGN OF FPA0 POSITIVE 



RTS 
COMPARE A PACKED FLOATING POINT NUMBER POINTED TO 
BY (X) TO AN UNPACKED FP NUMBER IN FPA0. RETURN 
ZERO FLAG SET AND ACCB = 0, IF EQUAL; ACCB = 1 IF 
FPA0 > (X); ACCB = $FF IF FPA0 < (X) 
BC96 LDB ,X 

LBC6D 



BEQ 
LDB 

EORB 
BMI 



1,X 



FP0SGN 

LBC71 

COMPARE FPA0 WITH FP NUMBER POINTED TO 
FPA0 IS NORMALIZED, (X) IS PACKED. 
BCA0 LDB FP0EXP 



CHECK EXPONENT OF (X) 
BRANCH IF FPA = 
GET MS BYTE OF MANTISSA OF (X) 
EOR WITH SIGN OF FPA0 
BRANCH IF SIGNS NOT = 
CX). 

* GET EXPONENT OF 
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4184 


BCA2 


El 


84 


4185 


BCA4 


26 


ID 


4186 


BCA6 


E6 


01 


4187 


BCA8 


CA 


7F 


4188 


BCAA 


D4 


50 


4189 


BCAC 


El 


01 


4190 


BCAE 


26 


13 


4191 


BCB0 


D6 


51 


4192 


BCB2 


El 


02 


4193 


BCB4 


26 


0D 


4194 


BCB6 


D6 


52 


4195 


BCB8 


El 


03 


4196 


BCBA 


26 


07 


4197 


BCBC 


D6 


53 


4198 


BCBE 


E0 


04 


4199 


BCC0 


26 


01 


4200 


BCC2 


39 




4201 


BCC3 


56 




4202 


BCC4 


D8 


54 


4203 


BCC6 


20 


AB 


4204 








4205 








4206 


BCC8 


D6 


4F 


4207 


BCCA 


27 


3D 


4208 


BCCC 


C0 


A0 


4209 








4210 








4211 








4212 


BCCE 


96 


54 


4213 


BCO0 


2A 


05 


4214 


BCD2 


03 


5B 


4215 


BC04 


BD 


BA 7B 


4216 


BCD7 


8E 


00 4F 


4217 


BCDA 


CI 


F8 


4218 


BCOC 


2E 


06 


4219 


BCOE 


BD 


BA AE 


4220 


BCE1 


0F 


5B 


4221 


BCE3 


39 




4222 


BCE4 


0F 


5B 


4223 


BCE6 


96 


54 


4224 


BCE8 


49 




4225 


BCE9 


06 


50 


4226 








4227 


BCEB 


7E 


BA BA 


4228 








4229 








4230 








4231 








4232 








4233 








4234 








4235 








4236 


BCEE 


D6 


4F 


4237 


BCF0 


CI 


A0 


4238 


BCF2 


24 


ID 


4239 


BCF4 


8D 


D2 


4240 








4241 


BCF6 


D7 


63 


4242 


BCF8 


96 


54 


4243 


BCFA 


D7 


54 


4244 


BCFC 


80 


80 


4245 


BCFE 


86 


A0 


4246 


BD00 


97 


4F 


4247 


BD02 


96 


53 


4248 


BD04 


97 


01 


4249 


BD06 


7E 


BA 18 


4250 








4251 


BD09 


D7 


50 


4252 


BD0B 


D7 


51 


4253 


BD0D 


D7 


52 


4254 


BD0F 


D7 


53 


4255 


BD11 


39 




4256 








4257 








4258 


BD12 


9E 


8A 


4259 


BD14 


9F 


54 


4260 


BD16 


9F 


4F 


4261 


BD18 


9F 


51 


4262 


BD1A 


9F 


52 


4263 


BD1C 


9F 


47 


4264 


BD1E 


9F 


45 


4265 


BD20 


25 


64 


4266 








4267 


BD22 


BD 


01 97 


4268 


BD25 


81 


2D 


4269 


BD27 


26 


04 


4270 


BD29 


03 


55 


4271 


BD2B 


20 


04 


4272 


BD2D 


81 


2B 



CHPB 


,x 


BNE 


LBCC3 


LDB 


1,X 


ORB 


#$7F 


ANDB 


FPA0 


CMPB 


1,X 


BNE 


LBCC3 


LDB 


FPA0+1 


CHPB 


2,X 


BNE 


LBCC3 


LDB 


FPA0+2 


CHPB 


3,X 


BNE 


LBCC3 


LDB 


FPA0+3 


SUBB 


4,X 


BNE 


LBCC3 


RTS 




1CC3 RORB 




EORB 


FP0SGN 


BRA 


LBC73 


DE-NORMALIZE 


FPA0 : SHIFT THE 


OF THE LEAST 


SIGNIFICANT BYTE 


1CC8 LDB 


FP0EXP 


BEQ 


LBD09 


SUBB 


#»A0 



* FPA0, COMPARE TO EXPONENT OF 

* (X) AND BRANCH IF <>. 

* GET MS BYTE OF (X), KEEP ONLY 

* THE SIGN BIT - 'AND' THE BOTTOM 7 

* BITS OF FPA0 INTO ACCB 

= COMPARE THE BOTTOM 7 BITS OF THE MANTISSA 
= MS BYTE AND BRANCH IF <> 

* COMPARE 2ND BYTE 

* OF MANTISSA, 

* BRANCH IF <> 

= COMPARE 3RD BYTE 
= OF MANTISSA, 
= BRANCH IF <> 

* SUBTRACT LS BYTE 

* OF (X) FROM LS BYTE OF 

* FPA0, BRANCH IF <> 
RETURN IF FP (X) = FPA0 

SHIFT CARRY TO BIT 7; CARRY SET IF FPA0 < (X) 

TOGGLE SIZE COMPARISON BIT IF FPA0 IS NEGATIVE 

GO SET ACCB ACCORDING TO COMPARISON 
MANTISSA UNTIL THE BINARY POINT IS TO THE RIGHT 
OF THE MANTISSA 

GET EXPONENT OF FPA0 

ZERO MANTISSA IF FPA0 = 

SUBTRACT »A0 FROM FPA0 EXPONENT T THIS HILL YIELD 

THE NUMBER OF SHIFTS REQUIRED TO DENORMALIZE FPA0. WHEN 

THE EXPONENT OF FPA0 IS = ZERO, THEN THE BINARY POINT 

HILL BE TO THE RIGHT OF THE MANTISSA 

TEST SIGN OF FPA0 MANTISSA 

BRANCH IF POSITIVE 

COMPLEMENT CARRY IN BYTE 

NEGATE MANTISSA OF FPA0 

POINT X TO FPA0 

EXPONENT DIFFERENCE < -8? 

YES 

SHIFT FPA0 RIGHT UNTIL FPA0 EXPONENT = $A0 

CLEAR CARRY IN BYTE 

CLEAR CARRY IN BYTE 

* GET SIGN OF FPA0 MANTISSA 

* ROTATE IT INTO THE CARRY FLAG 
ROTATE CARRY (MANTISSA SIGN) INTO BIT 7 
OF LS BYTE OF MANTISSA 
DE-NORMALIZE FPA0 



* INT 

* THE INT STATEMENT HILL "DENORMALIZE" FPA0 - THAT IS IT HILL SHIFT THE BINARY POINT 

* TO THE EXTREME RIGHT OF THE MANTISSA TO FORCE ITS EXPONENT TO BE »AO. ONCE 

* THIS IS DONE THE MANTISSA OF FPA0 HILL CONTAIN THE FOUR LEAST SIGNIFICANT 

* BYTES OF THE INTEGER PORTION OF FPA0. AT THE CONCLUSION OF THE DE-NORMALIZATION 

* ONLY THE INTEGER PORTION OF FPA0 HILL REMAIN. 



LDA 


FP0SGN 


BPL 


LBCD7 


COM 


FPCARY 


JSR 


LBA7B 


LDX 


#FP0EXP 


CMPB 


#-8 


BGT 


LBCE4 


JSR 


LBAAE 


CLR 


FPCARY 


RTS 




CLR 


FPCARY 


LDA 


FP0SGN 


ROLA 




ROR 


FPA0 



LDB 


FP0EXP 


CMPB 


#$A0 


BCC 


LBD11 


BSR 


LBCC8 


STB 


FPSBYT 


LDA 


FP0SGN 


STB 


FP0SGN 


SUBA 


#$80 


LDA 


#$A0 


STA 


FP0EXP 


LDA 


FPA0+3 


STA 


CHARAC 


JMP 


LBA18 


STB 


TPA0 


STB 


FPA0+1 


STB 


FPA0+2 


STB 


FPA0+3 



GET EXPONENT OF FPA0 

LARGEST POSSIBLE INTEGER EXPONENT 

RETURN IF FPA0 >= 32768 

SHIFT THE BINARY POINT ONE TO THE RIGHT OF THE 

LS BYTE OF THE FPA0 MANTISSA 

ACCB = 0: ZERO OUT THE SUB BYTE 

GET MANTISSA SIGN 

FORCE MANTISSA SIGN TO BE POSITIVE 

SET CARRY IF MANTISSA 

* GET DENORMALIZED EXPONENT AND 

* SAVE IT IN FPA0 EXPONENT 
= GET LS BYTE OF FPA0 AND 
= SAVE IT IN CHARAC 
NORMALIZE FPA0 

* LOAD MANTISSA OF FPA0 HITH CONTENTS OF ACCB 



CONVERT ASCII STRING TO FLOATING POINT 



LDX 


ZERO 


STX 


FP0SGN 


STX 


FP0EXP 


STX 


FPA0+1 


STX 


FPA0+2 


STX 


V47 


STX 


V45 


BCS 


LBD86 


JSR 


RVEC19 


CMPA 


#'- 


BNE 


LBD2D 


COM 


COEFCT 


BRA 


LBD31 



ZERO OUT FPA0 & THE SIGN FLAG (COEFCT) 



INITIALIZE EXPONENT & EXPONENT SIGN FLAG TO ZERO 

INITIALIZE RIGHT DECIMAL CTR & DECIMAL PT FLAG TO 

IF CARRY SET (NUMERIC CHARACTER), ASSUME ACCA CONTAINS FIRST 

NUMERIC CHAR, SIGN IS POSITIVE AND SKIP THE RAM HOOK 

HOOK INTO RAM 

* CHECK FOR A LEADING MINUS SIGN AND BRANCH 

* IF NO MINUS SIGN 
TOGGLE SIGN; = +; FF = - 
INTERPRET THE REST OF THE STRING 

* CHECK FOR LEADING PLUS SIGN AND BRANCH 



COLOR BASIC UNRAVELLED II 



ORIGIN:SPECTRAL ASSOC 
REVISED:12/13/1999 WALTER K ZYDHEK 



4273 


BD2F 


26 


04 


4274 


BD31 


90 


9F 


4275 


BD33 


25 


51 


4276 


BD35 


81 


2E 


4277 


BD37 


27 


28 


4278 


BD39 


81 


45 


4279 


BD3B 


26 


28 


4280 








4281 


BD3D 


9D 


9F 


4282 


BD3F 


25 


64 


4283 


BD41 


81 


AC 


4284 


BD43 


27 


0E 


4285 


BD45 


81 


2D 


4286 


BD47 


27 


0A 


4287 


B049 


81 


AB 


4288 


BD4B 


27 


08 


4289 


BD4D 


81 


2B 


4290 


BD4F 


27 


04 


4291 


BD51 


20 


06 


4292 


BD53 


03 


48 


4293 








4294 


BD55 


90 


9F 


4295 


BD57 


25 


4C 


4296 


BD59 


00 


48 


4297 


BD5B 


27 


08 


4298 


BD5D 


00 


47 


4299 


BD5F 


20 


04 


4300 


BD61 


03 


46 


4301 


BD63 


26 


cc 


4302 








4303 








4304 


BD65 


96 


47 


4305 


BD67 


90 


45 


4306 


BD69 


97 


47 


4307 


BD6B 


27 


12 


4308 


BD6D 


2A 


09 


4309 


BD6F 


BD 


BB 82 


4310 


BD72 


0C 


47 


4311 


BD74 


26 


F9 


4312 


BD76 


20 


07 


4313 


B078 


BD 


BB 6A 


4314 


BD7B 


0A 


47 


4315 


BD7D 


26 


F9 


4316 


BD7F 


96 


55 


4317 


BD81 


2A 


8E 


4318 


BD83 


7E 


BE E9 


4319 








4320 


BD86 


D6 


45 


4321 


BD88 


D0 


46 


4322 


BD8A 


D7 


45 


4323 








4324 


BD8C 


34 


02 


4325 


BD8E 


BD 


BB 6A 


4326 


BD91 


35 


04 


4327 


BD93 


C0 


30 


4328 


BD95 


80 


02 


4329 


BD97 


20 


98 


4330 


BD99 


BD 


BC 2F 


4331 


BD9C 


BD 


BC 7C 


4332 


BD9F 


8E 


00 40 


4333 


BDA2 


7E 


B9 C2 


4334 








4335 








4336 


BDA5 


D6 


47 


4337 


BDA7 


58 




4338 


BDA8 


58 




4339 


BDA9 


DB 


47 


4340 


BDAB 


58 




4341 


BDAC 


80 


30 


4342 


BDAE 


34 


04 


4343 


BDB0 


AB 


E0 


4344 


BDB2 


97 


47 


4345 


BDB4 


20 


9F 


4346 








4347 


BDB6 


9B 


3E BC 


4348 


BDBB 


9E 


6E 6B 


4349 


BDC0 


9E 


6E 6B 


4350 








4351 


BDC5 


8E 


AB E7 


4352 


BDC8 


80 


0C 


4353 


BDCA 


DC 


68 


4354 








4355 








4356 


BDCC 


DD 


50 


4357 


BDCE 


C6 





4358 


BDD0 


43 




4359 


BDD1 


BD 


BC 86 


4360 








4361 


BDD4 


8D 


03 





BNE 


LBD35 


LBD31 


JSR 


GETNCH 




BCS 


LBD86 


LBD35 


CMPA 


#'. 




BEQ 


LBD61 




CMPA 


#'E 




BNE 


LBD65 


* EVALUATE EXPONENT OF EXPONENTIAL FORMAT 




JSR 


GETNCH 




BCS 


LBDA5 




CMPA 


MAC 




BEQ 


LBD53 




CMPA 


#'- 




BEQ 


LBD53 




CMPA 


#»AB 




BEQ 


LBD55 




CMPA 


#' + 




BEQ 


LBD55 




BRA 


LBD59 


LBD53 


COM 


V48 


* STRIP A 


DECIMAL NUMBER FROM BASIC LINE, 


LBD55 


JSR 


GETNCH 




BCS 


LBDA5 


LBD59 


TST 


V48 




BEQ 


LBD65 




NEC 


V47 




BRA 


LBD65 


LBD61 


COM 


V46 




BNE 


LBD31 


* ADJUST 


FPA0 FOR THE DECIMAL EXPONENT IN 


LBD65 


LDA 


V47 




SUBA 


V45 




STA 


V47 




BEQ 


LBD7F 




BPL 


LBD78 


LBD6F 


JSR 


LBB82 




INC 


V47 




BNE 


LBD6F 




BRA 


LBD7F 


LBD78 


JSR 


LBB6A 




DEC 


V47 




BNE 


LBD78 


LBD7F 


LDA 


COEFCT 




BPL 


LBD11 




JMP 


LBEE9 


♦MULTIPLY 


FPA0 


BY TEN AND ADD ACCA TO THE 


LBD86 


LDB 


V45 




SUBB 


V46 




STB 


V45 




PSHS 


A 




JSR 


LBB6A 




PULS 


B 




SUBB 


#'0 




BSR 


LBD99 




BRA 


LBD31 


LBD99 


JSR 


LBC2F 




JSR 


LBC7C 




LDX 


#V40 




JMP 


LB9C2 


* MULTIPLY V47 


BY 10 AND ADD TO ASCII NUMI 


* ACCA - 


SAVE BINARY RESULT IN V47 


LBDA5 


LDB 
AS LB 
ASLB 


V47 




ADDB 


V47 




ASLB 






SUBA 


#'0 




PSHS 


B 




ADDA 


,s+ 




STA 


V47 




BRA 


LBD55 



CONVERT 
AND PRI 

BDCC 



FCB »9B,»3E,»BC,»1F,»FD 

FCB »9E,»6E,»6B,»27,»FD 

FCB $9E,$6E,»6B,$28,»00 

LDX #LABE8-1 

BSR LBDD6 

LDD CURLIN 

VALUE IN ACCD INTO A DECIMAL NUMBER 
NT IT TO CONSOLE OUT 



* IF NOT A PLUS SIGN 

GET NEXT INPUT CHARACTER FROM BASIC 

BRANCH IF NUMERIC CHARACTER 

DECIMAL POINT? 

YES 

"E" SHORTHAND FORM (SCIENTIFIC NOTATION)? 

NO 

GET NEXT INPUT CHARACTER FROM BASIC 
BRANCH IF NUMERIC 
MINUS TOKEN? 
YES 

ASCII MINUS? 
YES 

PLUS TOKEN? 
YES 

ASCII PLUS? 
YES 

BRANCH IF NO SIGN FOUND 
SET EXPONENT SIGN FLAG TO NEGATIVE 
CONVERT IT TO BINARY IN V47 
GET NEXT INPUT CHARACTER FROM BASIC 
IF NUMERIC CHARACTER, CONVERT TO BINARY 

* CHECK EXPONENT SIGN FLAG 

* AND BRANCH IF POSITIVE 
NEGATE VALUE OF EXPONENT 

•TOGGLE DECIMAL PT FLAG AND INTERPRET ANOTHER 
•CHARACTER IF <> - TERMINATE INTERPRETATION 
IF SECOND DECIMAL POINT 
V47 

* GET EXPONENT, SUBTRACT THE NUMBER OF 

* PLACES TO THE RIGHT OF DECIMAL POINT 

* AND RESAVE IT. 

EXIT ROUTINE IF ADJUSTED EXPONENT = ZERO 
BRANCH IF POSITIVE EXPONENT 
DIVIDE FPA0 BY 10 

INCREMENT EXPONENT COUNTER (MULTIPLY BY 10) 
KEEP MULTIPLYING 
EXIT ROUTINE 
MULTIPLY FPA0 BY 10 

DECREMENT EXPONENT COUNTER (DIVIDE BY 10) 
KEEP MULTIPLYING 
GET THE SIGN FLAG 
RETURN IF POSITIVE 

TOGGLE MANTISSA SIGN OF FPA0, IF NEGATIVE 
RESULT 
*GET THE RIGHT DECIMAL COUNTER AND SUBTRACT 
*THE DECIMAL POINT FLAG FROM IT. IF DECIMAL POINT 
*FLAG=0, NOTHING HAPPENS. IF DECIMAL POINT FLAG IS 
-1, THEN RIGHT DECIMAL COUNTER IS INCREMENTED BY ONE 
SAVE NEK DIGIT ON STACK 
MULTIPLY FPA0 BY 10 
GET NEW DIGIT BACK 
MASK OFF ASCII 
ADD ACCB TO FPA0 

GET ANOTHER CHARACTER FROM BASIC 
PACK FPA0 AND SAVE IT IN FPA3 
CONVERT ACCB TO FP NUMBER IN FPA0 

* ADD FPA0 TO 

* FPA3 
IER IN 



TIMES 2 

TIMES 4 

ADD 1 = TIMES 5 

TIMES 10 

*MASK OFF ASCII FROM ACCA, 

•RESULT ONTO THE STACK AND 

ADD IT TO ACCB 

SAVE IN V47 

INTERPRET ANOTHER CHARACTER 

* 99999999.9 

* 999999999 



POINT X TO " IN " MESSAGE 

COPY A STRING FROM (X) TO CONSOLE OUT 

GET CURRENT BASIC LINE NUMBER TO ACCD 



STD 



FPA0 
#$90 



COMA 
JSR 



SAVE ACCD IN TOP HALF OF FPA0 

REQ D EXPONENT IF TOP HALF OF ACCD = INTEGER 

SET CARRY FLAG - FORCE POSITIVE MANTISSA 

ZERO BOTTOM HALF AND SIGN OF FPA0, THEN 

SAVE EXPONENT AND NORMALIZE IT 

CONVERT FP NUMBER TO ASCII STRING 
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4362 


BDD6 


7E 


B9 


9C 


4363 










4364 










4365 


BDD9 


CE 


03 


DA 


4366 










4367 


BDDC 


86 


20 




4368 


BDDE 


D6 


54 




4369 


BDE0 


2A 


02 




4370 


BDE2 


86 


2D 




4371 


BDE4 


A7 


C0 




4372 


BDE6 


DF 


64 




4373 


BDE8 


97 


54 




4374 


BDEA 


86 


30 




4375 


BDEC 


D6 


4F 




4376 


BDEE 


10 


27 


00 


4377 


BDF2 


4F 






4378 


BDF3 


CI 


80 




4379 


BDF5 


22 


08 




4380 










4381 


BDF7 


8E 


BD 


C0 


4382 


BDFA 


BD 


BA 


CA 


4383 


BDFD 


86 


F7 




4384 


BDFF 


97 


45 




4385 










4386 










4387 










4388 










4389 










4390 


BE01 


8E 


BD 


BB 


4391 


BE04 


BD 


BC 


A0 


4392 


BE07 


2E 


0F 




4393 


BE09 


8E 


BD 


B6 


4394 


BE0C 


BD 


BC 


A0 


4395 


BE0F 


2E 


0E 




4396 


BE11 


BD 


BB 


6A 


4397 


BE14 


0A 


45 




4398 


BE16 


20 


Fl 




4399 


BE18 


BD 


BB 


82 


4400 


BE1B 


0C 


45 




4401 


BE1D 


20 


E2 




4402 


BE1F 


BD 


B9 


B4 


4403 


BE22 


BD 


BC 


C8 


4404 


BE25 


C6 


01 




4405 


BE27 


96 


45 




4406 


BE29 


8B 


0A 




4407 


BE2B 


2B 


09 




4408 


BE2D 


81 


0B 




4409 










4410 


BE2F 


24 


05 




4411 


BE31 


4A 






4412 


BE32 


IF 


89 




4413 


BE34 


86 


02 




4414 


BE36 


4A 






4415 


BE37 


4A 






4416 


BE38 


97 


47 




4417 










4418 


BE3A 


D7 


45 




4419 










4420 


BE3C 


2E 


0D 




4421 


BE3E 


DE 


64 




4422 


BE40 


86 


2E 




4423 


BE42 


A7 


C0 




4424 


BE44 


5D 






4425 


BE45 


27 


04 




4426 


BE47 


86 


30 




4427 


BE49 


A7 


C0 




4428 










4429 










4430 


BE4B 


8E 


BE 


C5 


4431 


BE4E 


C6 


80 




4432 










4433 










4434 










4435 










4436 


BE50 


96 


53 




4437 


BE52 


AB 


03 




4438 


BE54 


97 


53 




4439 


BE56 


96 


52 




4440 


BE58 


A9 


02 




4441 


BE5A 


97 


52 




4442 


BE5C 


96 


51 




4443 


BE5E 


A9 


01 




4444 


BE60 


97 


51 




4445 


BE62 


96 


50 




4446 


BE64 


A9 


84 




4447 


BE66 


97 


50 




4448 


BE68 


5C 






4449 


BE69 


56 






4450 


BE6A 


59 







COPY A STRING FROM (X) TO CONSOLE OUT 

I STRING 

POINT U TO BUFFER WHICH HILL NOT CAUSE 

THE STRING TO BE STORED IN STRING SPACE 

SPACE = DEFAULT SIGN FOR POSITIVE # 

GET SIGN OF FPA0 

BRANCH IF POSITIVE 

ASCII MINUS SIGN 

STORE SIGN OF NUMBER 

SAVE BUFFER POINTER 

SAVE SIGN (IN ASCII) 

ASCII ZERO IF EXPONENT = 

GET FPA0 EXPONENT 

BRANCH IF FPA0 = 

BASE 10 EXPONENT=0 FOR FP NUMBER > 1 

CHECK EXPONENT 

BRANCH IF FP NUMBER > 1 
T BY 1E+09 TO SPEED UP THE CONVERSION PROCESS 

POINT X TO FP 1E+09 

MULTIPLY FPA0 BY (X) 

BASE 10 EXPONENT = -9 

BASE 10 EXPONENT 
NUMBER TO A VALUE IN THE RANGE 
999.9 - THIS IS THE LARGEST 

OF THE DIGITS ARE 
DISPLAYED WITHOUT USING 

POINT X TO FP 999,999,999 

COMPARE FPA0 TO 999,999,999 

BRANCH IF > 999,999,999 

POINT X TO FP 99,999,999.9 

COMPARE FPA0 TO 99,999,999.9 

BRANCH IF > 99,999,999.9 (IN RANGE) 

MULTIPLY FPA0 BY 10 

SUBTRACT ONE FROM DECIMAL OFFSET 

PSEUDO - NORMALIZE SOME MORE 

DIVIDE FPA0 BY 10 

ADD ONE TO BASE 10 EXPONENT 

PSEUDO - NORMALIZE SOME MORE 

ADD .5 TO FPA0 (ROUND OFF) 

CONVERT FPA0 TO AN INTEGER 

DEFAULT DECIMAL POINT FLAG (FORCE IMMED DECIMAL PT) 

* GET BASE 10 EXPONENT AND ADD TEN TO IT 

* (NUMBER NORMALIZED TO 9 PLACES & DECIMAL PT) 
BRANCH IF NUMBER < 1.0 
NINE PLACES MAY BE DISPLAYED WITHOUT 

USING SCIENTIFIC NOTATION 

BRANCH IF SCIENTIFIC NOTATION REOUIRED 

* SUBTRACT 1 FROM MODIFIED BASE 10 EXPONENT CTR 

* AND SAVE IT IN ACCB (DECiMAL POINT FLAG) 

FORCE EXPONENT = - DON'T USE SCIENTIFIC NOTATION 

* SUBTRACT TWO (WITHOUT AFFECTING CARRY) 

* FROM BASE 10 EXPONENT 

SAVE EXPONENT - ZERO EXPONENT = DO NOT DISPLAY 

IN SCIENTIFIC NOTATION 

DECIMAL POINT FLAG - NUMBER OF PLACES TO 

LEFT OF DECIMAL POINT 

BRANCH IF >= 1 

POINT U TO THE STRING BUFFER 

* STORE A PERIOD 

* IN THE BUFFER 

CHECK DECIMAL POINT FLAG 

BRANCH IF NOTHING TO LEFT OF DECIMAL POINT 

* STORE A ZERO 

* IN THE BUFFER 



ONVERT FPA0 INTO A STRING OF ASCII DIGITS 

4B LDX #LBEC5 POINT X TO FP POWER OF 10 MANTISSA 

LDB #0+$80 INITIALIZE DIGIT COUNTER TO 0+>80 

IT 7 SET IS USED TO INDICATE THAT THE POWER OF 10 MANTISSA 
S NEGATIVE. WHEN YOU 'ADD' A NEGATIVE MANTISSA, IT IS 
HE SAME AS SUBTRACTING A POSITIVE ONE AND BIT 7 OF ACCB IS HOW 
HE ROUTINE KNOWS THAT A 'SUBTRACTION' IS OCCURING. 

* ADD MANTISSA LS 

* BYTE OF FPA0 

* AND (X) 
= ADD MANTISSA 
= NUMBER 3 BYTE OF 
= FPA0 AND (X) 

* ADD MANTISSA 

* NUMBER 2 BYTE OF 

* FPA0 AND (X) 
= ADD MANTISSA 
= MS BYTE OF 
= FPA0 AND (X) 
ADD ONE TO DIGIT COUNTER 
ROTATE CARRY INTO BIT 7 
*SET OVERFLOW FLAG AND BRANCH IF CARRY 



CONVERT 


FP NUMBER TO ASCI 


IDD9 


LDU 


#STRBUF+3 


;ddc 


LDA 


#SPACE 




LDB 


FP0SGN 




BPL 


LBDE4 




LDA 


#'- 


IDE4 


STA 


,U+ 




STU 


COEFPT 




STA 


FP0SGN 




LDA 


#'0 




LDB 


FP0EXP 




LBEQ 


LBEB8 




CLRA 






CMPB 


#$80 




BHI 


LBDFF 


IF FPA0 


< 1.0 


, MULTIPLY r 




LDX 


#LBDC0 




JSR 


LBACA 




LDA 


#-9 


1DFF 


STA 


V45 


PSEUDO 


- NORMALIZE THE FP 


OF 999, 


999,999 RO 99,999,! 


NUMBER 


RANGE ] 


!N WHICH ALL 


SIGNIFICANT WHICH CAN BE 1 


SCIENTIFIC NOTATION 


1E01 


LDX 


#LBDBB 




JSR 


LBCA0 




BGT 


LBE18 


IE09 


LDX 


#LBDB6 




JSR 


LBCA0 




BGT 


LBE1F 




JSR 


LBB6A 




DEC 


V45 




BRA 


LBE09 


IE18 


JSR 


LBB82 




INC 


V45 




BRA 


LBE01 


1E1F 


JSR 


LB9B4 




JSR 


LBCC8 




LDB 


#1 




LDA 


V45 




ADDA 


#9+1 




BMI 


LBE36 




CMPA 


#9+2 



TFR 
LDA 

DECA 
DECA 
STA 



BGT 


LBE4B 


LDU 


COEFPT 


LDA 


#'. 


STA 


,U + 


TSTB 




BEQ 


LBE4B 


LDA 


#'0 


STA 


,u+ 



LDA 


FPA0+3 


ADDA 


3,X 


STA 


FPA0+3 


LDA 


FPA0+2 


ADCA 


2,X 


STA 


FPA0+2 


LDA 


FPA0+1 


ADCA 


i,x 


STA 


FPA0+1 


LDA 


FPA0 


ADCA 


,x 


STA 


FPA0 


INCB 




RORB 




ROLB 
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4451 


BE6B 


28 


E3 




4452 


BE6D 


24 


03 




4453 


BE6F 


C0 


0B 




4454 


BE71 


50 






4455 


BE72 


CB 


2F 




4456 


BE74 


30 


04 




4457 


BE76 


IF 


98 




4458 


BE78 


84 


7F 




4459 


BE7A 


A7 


C0 




4460 


BE7C 


0A 


45 




4461 


BE7E 


26 


04 




4462 


BE80 


86 


2E 




4463 


BE82 


A7 


C0 




4464 


BE84 


53 






4465 


BE85 


C4 


80 




4466 


BE87 


ec 


BE 


E9 


4467 


BE8A 


26 


C4 




4468 










4469 


BE8C 


A6 


C2 




4470 


BE8E 


81 


30 




4471 


BE90 


27 


FA 




4472 


BE92 


81 


2E 




4473 


BE94 


26 


02 




4474 


BE96 


33 


5F 




4475 


BE98 


86 


2B 




4476 


BE9A 


D6 


47 




4477 


BE9C 


27 


1C 




4478 


BE9E 


2A 


03 




4479 


BEA0 


86 


2D 




4480 


BEA2 


50 






4481 


BEA3 


A7 


42 




4482 


BEA5 


86 


45 




4483 


BEA7 


A7 


41 




4484 


BEA9 


86 


2F 




4485 










4486 










4487 


BEAB 


4C 






4488 


BEAC 


C0 


0A 




4489 


BEAE 


24 


FB 




4490 


BEB0 


CB 


3A 




4491 


BEB2 


ED 


43 




4492 


BEB4 


6F 


45 




4493 


BEB6 


20 


04 




4494 


BEB8 


A7 


C4 




4495 


BEBA 


6F 


41 




4496 










4497 


BEBC 


8E 


03 


DA 


4498 


BEBF 


39 






4499 










4500 


BEC0 


80 


00 


00 00 


4501 










4502 










4503 


BEC5 


FA 


0A 


IF 00 


4504 


BEC9 


00 


98 


96 80 


4505 


BECD 


FF 


F0 


BD C0 


4506 


BED1 


00 


01 


86 A0 


4507 


BED5 


FF 


FF 


D8 F0 


4508 


BED9 


00 


00 


03 E8 


4509 


BEDD 


FF 


FF 


FF 9C 


4510 


BEE1 


00 


00 


00 0A 


4511 


BEE5 


FF 


FF 


FF FF 


4512 










4513 










4514 


BEE9 


96 


4F 




4515 


BEEB 


27 


02 




4516 


BEED 


03 


54 




4517 


BEEF 


39 






4518 










4519 










4520 










4521 










4522 


BEF0 


9F 


64 




4523 


BEF2 


BD 


BC 


2F 


4524 


BEF5 


8D 


05 




4525 


BEF7 


8D 


08 




4526 


BEF9 


8E 


00 


40 


4527 


BEFC 


7E 


BA 


CA 


4528 










4529 










4530 










4531 










4532 










4533 










4534 










4535 










4536 


BEFF 


9F 


64 




4537 


BF01 


BD 


BC 


2A 


4538 


BF04 


9E 


64 




4539 


BF06 


E6 


80 







BVC 


LBE50 




BCC 


LBE72 




SUBB 


#10+1 




NEGB 




E72 


ADDB 


#'0-1 




LEAX 


4,X 




TFR 


B,A 




ANDA 


#$7F 




STA 


,U+ 




DEC 


V45 




BNE 


LBE84 




LDA 


#'. 




STA 


>u+ 


E84 


COMB 






ANDB 


#$80 




CHPX 


#LBEC5+9*4 




BNE 


LBE50 


BLANK 


TRAILING 


ZEROS AND STORE EXPONENT 


E8C 


LDA 


,-u 




CHPA 


#'0 




BEQ 


LBE8C 




CHPA 


#' . 




BNE 


LBE98 




LEAD 


-1,0 


E98 


LDA 


#' + 




LDB 


V47 




BEQ 


LBEBA 




BPL 


LBEA3 




LDA 


#'- 




NEGB 




EA3 


STA 


2,U 




LDA 


#'E 




STA 


1,1) 




LDA 


#'0-1 


CONVERT BINARY 


VALOE IN ACCB TO DECIMAL 


ASCII 


NOMBER 


< 100) IN ACCD 


EAB 


INCA 






SUBB 


#10 




BCC 


LBEAB 




ADDB 


#'9+1 




STD 


3,0 




CLR 


5,U 




BRA 


LBEBC 


EB8 


STA 


,0 


EBA 


CLR 


1,U 


EBC 


LDX 

RTS 


#STRB0F+3 



•POSITIVE MANTISSA OR CARRY = AND NEG MANTISSA 
BRANCH IF NEGATIVE MANTISSA 

* TAKE THE 9 S COMPLEMENT IF 

* ADDING MANTISSA 

ADD ASCII OFFSET TO DIGIT 

MOVE TO NEXT POWER OF 10 MANTISSA 

SAVE DIGIT IN ACCA 

MASK OFF BIT 7 (ADD/SOBTRACT FLAG) 

STORE DIGIT IN STRING BOFFER 

DECREMENT DECIMAL POINT FLAG 

BRANCH IF NOT TIME FOR DECIMAL POINT 

* STORE DECIMAL POINT IN 

* STRING BOFFER 

TOGGLE BIT 7 (ADD/SOBTRACT FLAG) 
MASK OFF ALL BOT ADD/SOBTRACT FLAG 
COMPARE X TO END OF MANTISSA TABLE 
BRANCH IF NOT AT END OF TABLE 
IF ANY 
GET THE LAST CHARACTER; MOVE POINTER BACK 
HAS IT A ZERO? 
IGNORE TRAILING ZEROS IF SO 
CHECK FOR DECIMAL POINT 
BRANCH IF NOT DECIMAL POINT 
STEP OVER THE DECIMAL POINT 
ASCII PLOS SIGN 

GET SCIENTIFIC NOTATION EXPONENT 
BRANCH IF NOT SCIENTIFIC NOTATION 
BRANCH IF POSITIVE EXPONENT 
ASCII MINOS SIGN 
NEGATE EXPONENT IF NEGATIVE 
STORE EXPONENT SIGN IN STRING 

* GET ASCII E (SCIENTIFIC NOTATION 

* FLAG) AND SAVE IT IN THE STRING 
INITIALIZE ACCA TO ASCII ZERO 



ADD ONE TO 10 S DIGIT OF EXPONENT 

SOBTRACT 10 FROM ACCB 

ADD 1 TO 10 S DIGIT IF NO CARRY 

CONVERT ONITS DIGIT TO ASCII 

SAVE EXPONENT IN STRING 

CLEAR LAST BYTE (TERMINATOR) 

GO RESET POINTER 

STORE LAST CHARACTER 

CLEAR LAST BYTE (TERMINATOR - REOOIRED 

PRINT SOBROOTINES) 

RESET POINTER TO START OF BOFFER 



$80, $00, $00, $00, $00 



TABLE OF ONNORMALIZED POWERS OF 10 



FLOATING POINT 



LBEC5 
LBEC9 
LBECD 
LBED1 
LBED5 
LBED9 
LBEDD 
LBEE1 
LBEE5 



FA 


$0A 


$1F 


00 


$98 


$96 


FF 


$F0 


$BD 


00 


$01 


$86 


FF 


$FF 


$D8 


00 


$00 


$03 


FF 


$FF 


$FF 


00 


$00 


$00 


FF 


$FF 


$FF 



,$00 

,$80 
,$C0 
,$A0 
,$F0 
,$E8 
,$9C 
,$0A 
,$FF 



E9 LDA FP0EXP 

BEQ LBEEF 

COM FP0SGN 
EF RTS 
XPAND A POLYNOMIAL OF THE FORM 



LBEF 



+BQ**3+CQ**5+DQ**7 WHERE Q = FPA0 


D THE X REGISTER POINTS TO A TABLE OF 


EFFICIENTS 


A,B,C,D 


STX 


COEFPT 


JSR 


LBC2F 


BSR 


LBEFC 


BSR 


LBF01 


LDX 


#V40 


C JMP 


LBACA 



GET EXPONENT OF FPA0 

BRANCH IF FPA0 = 

TOGGLE MANTISSA SIGN OF FPA0 



SAVE COEFFICIENT TABLE POINTER 

MOVE FPA0 TO FPA3 

MOLTIPLY FPA3 BY FPA0 

EXPAND POLYNOMIAL 

POINT X TO FPA3 

MOLTIPLY (X) BY FPA0 



* CALCOLATE THE VALOE OF AN EXPANDED POLYNOMIAL 

* EXPRESSION. ENTER KITH (X) POINTING TO A TABLE 

* OF COEFFICIENTS, THE FIRST BYTE OF WHICH IS THE 

* NOMBER OF (COEFFICI ENTS- 1 ) FOLLOWED BY THAT NOMBER 

* OF PACKED FLOATING POINT NOMBERS. THE 

* POLYNOMIAL IS EVALOATED AS FOLLOWS: VALOE = 

* U(FPA0*Y0+Y1)*FPA0+Y2)*FPA0 YN) 

LBEFF STX COEFPT SAVE COEFFICIENT TABLE POINTER 

LBF01 JSR LBC2A MOVE FPA0 TO FPA4 

LDX COEFPT GET THE COEFFICIENT POINTER 

LDB ,X+ GET THE TOP OF COEFFICIENT TABLE TO 



COLOR BASIC UNRAVELLED II 
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4540 


BF08 


D7 


55 




4541 


BF0A 


9F 


64 




4542 


BF0C 


8D 


EE 




4543 


BF0E 


9E 


64 




4544 


BF10 


30 


05 




4545 


BF12 


9F 


64 




4546 


BF14 


BD 


B9 


C2 


4547 


BF17 


8E 


00 


45 


4548 


BF1A 


0A 


55 




4549 


BF1C 


26 


EE 




4550 


BF1E 


39 






4551 










4552 










4553 


BF1F 


BD 


BC 


6D 


4554 


BF22 


2B 


21 




4555 


BF24 


27 


15 




4556 


BF26 


8D 


10 




4557 


BF28 


BD 


BC 


2F 


4558 


BF2B 


8D 


0E 




4559 


BF2D 


8E 


00 


40 


4560 


BF30 


8D 


CA 




4561 


BF32 


8E 


BA 


C5 


4562 


BF35 


BD 


B9 


C2 


4563 


BF38 


7E 


BC 


EE 


4564 










4565 


BF3B 


BE 


01 


16 


4566 


BF3E 


9F 


50 




4567 


BF40 


BE 


01 


18 


4568 


BF43 


9F 


52 




4569 


BF45 


BE 


BF 


74 


4570 


BF48 


9F 


5D 




4571 


BF4A 


BE 


BF 


76 


4572 


BF4D 


9F 


5F 




4573 


BF4F 


BD 


BA 


D0 


4574 


BF52 


DC 


AD 




4575 


BF54 


C3 


65 


8B 


4576 


BF57 


FD 


01 


18 


4577 


BF5A 


DD 


52 




4578 


BF5C 


DC 


AB 




4579 


BF5E 


C9 


B0 




4580 


BF60 


89 


05 




4581 


BF62 


FD 


01 


16 


4582 


BF65 


DD 


50 




4583 


BF67 


0F 


54 




4584 


BF69 


86 


80 




4585 


BF6B 


97 


4F 




4586 


BF6D 


96 


15 




4587 


BF6F 


97 


63 




4588 


BF71 


7E 


BA 


1C 


4589 










4590 


BF74 


40 


E6 




4591 


BF76 


4D 


AB 




4592 










4593 










4594 










4595 










4596 










4597 










4598 










4599 










4600 










4601 


BF78 


BD 


BC 


5F 


4602 


BF7B 


8E 


BF 


BD 


4603 


BF7E 


D6 


61 




4604 


BF80 


BD 


BB 


89 


4605 


BF83 


BD 


BC 


5F 


4606 


BF86 


8D 


B0 




4607 


BF88 


0F 


62 




4608 


BF8A 


96 


5C 




4609 


BF8C 


D6 


4F 




4610 


BF8E 


BD 


B9 


BC 


4611 










4612 


BF91 


8E 


BF 


C2 


4613 


BF94 


BD 


B9 


B9 


4614 


BF97 


96 


54 




4615 


BF99 


34 


02 




4616 


BF9B 


2A 


09 




4617 


BF9D 


BD 


B9 


B4 


4618 


BFA0 


96 


54 




4619 


BFA2 


2B 


05 




4620 


BFA4 


03 


0A 




4621 


BFA6 


BD 


BE 


E9 


4622 


BFA9 


8E 


BF 


C2 


4623 


BFAC 


BD 


B9 


C2 


4624 


BFAF 


35 


02 




4625 


BFB1 


4D 






4626 


BFB2 


2A 


03 




4627 


BFB4 


BD 


BE 


E9 


4628 


BFB7 


8E 


BF 


C7 



* USE AND STORE IT IN TEMPORARY COUNTER 

SAVE NEK COEFFICIENT POINTER 

MULTIPLY (X) BY FPA0 

*GET COEFFICIENT POINTER 

*MOVE TO NEXT FP NUMBER 

*SAVE NEK COEFFICIENT POINTER 

ADD (X) AND FPA0 

POINT (X) TO FPA4 

DECREMENT TEMP COUNTER 

BRANCH IF MORE COEFFICIENTS LEFT 



TEST FPA0 

BRANCH IF FPA0 = NEGATIVE 
BRANCH IF FPA0 = 
CONVERT FPA0 TO AN INTEGER 
PACK FPA0 TO FPA3 
GET A RANDOM NUMBER: FPA0 < 1.0 
POINT (X) TO FPA3 
MULTIPLY (X) BY FPA0 
POINT (X) TO FP VALUE OF 1.0 
ADD 1.0 TO FPA0 
CONVERT FPA0 TO AN INTEGER 
.0 < X <= 1.0 

* MOVE VARIABLE 

* RANDOM NUMBER 

* SEED TO 

* FPA0 

= MOVE FIXED 

= RANDOM NUMBER 

= SEED TO 

= MANTISSA OF FPA0 

MULTIPLY FPA0 X FPA1 

GET THE TWO LOWEST ORDER PRODUCT BYTES 

ADD A CONSTANT 

SAVE NEK LOU ORDER VARIABLE RANDOM # SEED 

SAVE NEU LOU ORDER BYTES OF FPA0 MANTISSA 

GET 2 MORE LOU ORDER PRODUCT BYTES 

ADD A CONSTANT 

ADD A CONSTANT 

SAVE NEU HIGH ORDER VARIABLE RANDOM # SEED 

SAVE NEU HIGH ORDER FPA0 MANTISSA 

FORCE FPA0 MANTISSA = POSITIVE 

* SET FPA0 BIASED EXPONENT 

* TO 1 < FPA0 < 

GET A BYTE FROM FPA2 (MORE RANDOMNESS) 
SAVE AS SUB BYTE 
NORMALIZE FPA0 

•CONSTANT RANDOM NUMBER GENERATOR SEED 



SIN 

THE SIN FUNCTION REQUIRES AN ARGUMENT IN RADIANS AND UILL REPEAT ITSELF EVERY 
2*PI RADIANS. THE ARGUMENT IS DIVIDED BY 2*PI AND ONLY THE FRACTIONAL PART IS 
RETAINED. SINCE THE ARGUMENT UAS DIVIDED BY 2*P1, THE COEFFICIENTS MUST BE 
MULTIPLIED BY THE APPROPRIATE POUER OF 2*PI . 



TRIGONOMETRIC IDENTITIES BELOU: 
/2-X)=SIN((3*PI)/2+X) 

COPY FPA0 TO FPA1 

POINT (X) TO 2*PI 

*GET MANTISSA SIGN OF FPA1 

*AND DIVIDE FPA0 BY 2*PI 

COPY FPA0 TO FPA1 

CONVERT FPA0 TO AN INTEGER 

SET RESULT SIGN = POSITIVE 

*GET EXPONENT OF FPA1 

*GET EXPONENT OF FPA0 

•SUBTRACT FPA0 FROM FPA1 
FRACTIONAL PART OF ARGUMENT/2*PI 

POINT X TO FP < .25) 

SUBTRACT FPA0 FROM .25 (PI/2) 

GET MANTISSA SIGN OF FPA0 

SAVE IT ON STACK 

BRANCH IF MANTISSA POSITIVE 

ADD .5 (PI) TO FPA0 

GET SIGN OF FPA0 

BRANCH IF NEGATIVE 

COM IF +<3*PI)/2 >= ARGUMENT >+ PI/2 (QUADRANT FLAG) 

TOGGLE MANTISSA SIGN OF FPA0 

POINT X TO FP < .25) 

ADD .25 (PI/2) TO FPA0 

GET OLD MANTISSA SIGN 

* BRANCH IF OLD 

* SIGN UAS POSITIVE 
TOGGLE MANTISSA SIGN 
POINT X TO TABLE OF COEFFICIENTS 





STB 


COEFCT 






STX 


COEFPT 




LBF0C 


BSR 


LBEFC 






LDX 


COEFPT 






LEAX 


5,X 






STX 


COEFPT 






JSR 


LB9C2 






LDX 


#V45 






DEC 


COEFCT 






BNE 


LBF0C 






RTS 






* RND 








RND 


JSR 


LBC6D 






BMI 


LBF45 






BEQ 


LBF3B 






BSR 


LBF38 






JSR 


LBC2F 






BSR 


LBF3B 






LDX 


#V40 






BSR 


LBEFC 






LDX 


#LBAC5 






JSR 


LB9C2 




LBF38 


JMP 


INT 




* CALCULATE A RANDOM NUMBER IN 


THE RANGE 


LBF3B 


LDX 


RVSEED+1 






STX 


FPA0 






LDX 


RVSEED+3 






STX 


FPA0+2 




LBF45 


LDX 


RSEED 






STX 


FPA1 






LDX 


RSEED+2 






STX 


FPA1+2 






JSR 


LBAD0 






LDD 


VAD 






ADDD 


#»658B 






STD 


RVSEED+3 






STD 


FPA0+2 






LDD 


VAB 






ADCB 


#$B0 






ADCA 


#5 






STD 


RVSEED+1 






STD 


FPA0 






CLR 


FP0SGN 






LDA 


#$80 






STA 


FP0EXP 






LDA 


FPA2+2 






STA 


FPSBYT 






JMP 


LBA1C 




RSEED 


FDB 


$40E6 






FDB 


»4DAB 





* SIN IS 


EVALUATED USING THE 


* SIN(X)= 


:SIN(PI- 


-X) & -SINIPI 


SIN 


JSR 


LBC5F 




LDX 


#LBFBD 




LDB 


FP1SGN 




JSR 


LBB89 




JSR 


LBC5F 




BSR 


LBF38 




CLR 


RESSGN 




LDA 


FP1EXP 




LDB 


FP0EXP 




JSR 


LB9BC 


*NOU FPAf 


1 CONTAINS ONLY THE 




LDX 


#LBFC2 




JSR 


LB9B9 




LDA 


FP0SGN 




PSHS 


A 




BPL 


LBFA6 




JSR 


LB9B4 




LDA 


FP0SGN 




BMI 


LBFA9 




COM 


RELFLG 


LBFA6 


JSR 


LBEE9 


LBFA9 


LDX 


#LBFC2 




JSR 


LB9C2 




PULS 


A 




TSTA 






BPL 


LBFB7 




JSR 


LBEE9 


LBFB7 


LDX 


#LBFC7 
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4629 


BFBA 


7E 


BE 


F0 








JHP 


LBEF0 






4630 
























4631 


BFBD 


83 


49 


0F 


DA 


A2 


LBFBD 


FCB 


$83, $49 


$0F 


$DA,$A2 


4632 


BFC2 


7F 


00 


00 


00 


00 


LBFC2 


FCB 


$7F,$00 


$00 


$00, $00 


4633 
























4634 














* MODIFIED TAYLOR SERIES 


SIN 


COEFFICIENTS 


4635 


BFC7 


05 










LBFC7 


FCB 


6-1 






4636 


BFC8 


84 


E6 


1A 


2D 


IB 


LBFC8 


FCB 


$84,$E6 


$1A 


$2D,$1B 


4637 


BFCD 


86 


28 


07 


FB 


F8 


LBFC8 


FCB 


$86, $28 


$07 


$FB,$F8 


4638 


BFD2 


87 


99 


68 


89 


01 


LBFD2 


FCB 


$87, $99 


$68 


$89, $01 


4639 


BFD7 


87 


23 


35 


DF 


El 


LBFD7 


FCB 


$87, $23 


$35 


$DF,$E1 


4640 


BFDC 


86 


A5 


5D 


E7 


28 


LBFDC 


FCB 


$86,$A5 


$5D 


$E7,$28 


4641 


BFE1 


83 


49 


0F 


DA 


A2 


LBFE1 


FCB 


$83, $49 


$0F 


$DA,$A2 


4642 
























4643 


BFE6 


Al 


54 


46 


8F 


13 8F LBFE6 


FCB 


$A1,$54 


$46 


$8F,$13 


4644 


BFEC 


52 


43 


89 


CD 






FCB 


$8F,$52 


$43 


$89,$CD 


4645 
























4646 














* INTERRUPT VECTORS 






4647 


BFF0 


A6 


81 








LBFF0 


FDB 


LA681 






4648 


BFF2 


01 


00 








LBFF2 


FDB 


SM3VEC 






4649 


BFF4 


01 


03 








LBFF4 


FDB 


SM2VEC 






4650 


BFF6 


01 


0F 








LBFF6 


FDB 


FRQVEC 






4651 


BFF8 


01 


0C 








LBFF8 


FDB 


IRQVEC 






4652 


BFFA 


01 


06 








LBFFA 


FDB 


SMIVEC 






4653 


BFFC 


01 


09 








LBFFC 


FDB 


NMIVEC 






4654 


BFFE 


A0 


27 








LBFFE 


FDB 


RESVEC 







GO CALCULATE POLYNOMIAL VALUE 



6.28318531 (2*PI) 



CIENTS 
**11)/11! 

**9)/9! 
**7)/7! 
**5)/5! 
**3)/3! 



SIX COEFFI 


* 


-<<2*PI) 


* 


(<2*PI) 


* 


-(<2*PI) 


* 


<<2*PI) 


* 


-(<2*PI) 


* 


2*PI 



UNUSED GARBAGE 
UNUSED GARBAGE 



RESERVED 

SWI3 

SWI2 

FIRQ 

IRQ 

SWI 

NM1 

RESET 



;YTES 
;YTES 



COLOR BASIC UNRAVELLED II 



APPENDIX C 
BASIC ROUTINES AND ENTRY POINTS 



ORIGIN:SPECTRAL ASSOC 
REVISED:12/13/1999 WALTER K ZYDHEK 



MODIFIED 
REGISTERS 



ADDRESS 



DESCRIPTION 



ALL 



RESVEC RESET ENTRY POINT - set SAM, PIAs ram check - if 
(A027) RSTFLG = $55, then jump to RSTVEC; otherwise do a cold 
start. 



ALL 



ALL 



BACDST COLD START ENTRY POINT - clear 1st IK of RAM, reset 
(A074) BASIC'S pointers. 

BAWMST WARM START ENTRY POINT - reset some of BASIC'S 
(A0E8) pointers. 

A171 ASCII CONSOLE IN - read a character from CONSOLE 
IN. Mask off bit 7 and return character in ACCA. 

A176 CONSOLE IN - read a character from active input device 
(DEVNUM). Return character in ACCA. 



A,B,X 



A199 CURSOR DRIVER - put a cursor block on the screen 
at the address in CURPOS. 



NONE 



NONE 



A1B1 WAIT FOR A KEYSTROKE - blink the cursor while waiting 
for a keystroke. Return the ASCII value of the key in 
ACCA when a key is depressed. 

KEYIN SCAN THE KEYBOARD FOR A KEY DEPRESSION - Return zero 
(A1CB) flag = 1 if no new key down. Return the ASCII value 
of the key in ACCA if a new key is depressed. 

PUTCHR CONSOLE OUT - sends character in ACCA to output device. 
(A282) The output device is specified in DEVNUM. 

A2BF RS232 OUTPUT DRIVER - software UART specifically 

formatted to drive a line printer. The routine may be 
used to drive other devices, and has been modified by 
all revisions to BASIC. Version 1.2 will not begin 
transmitting data until the destination device is 
ready. 



NONE 



A30A PUT A CHARACTER ON THE SCREEN - place a character 
on the screen (the screen starts at $400) at the 
location stored in CURPOS. 



NONE 



A35F INITIALIZE PRINT PARAMETERS - set up tab field width, 
tab zone, current position and line width according 
to the device selected (DEVNUM). This routine will 
vector into RAM at RVEC2. 



A,B,X 



A38D 



GET A BASIC INPUT LINE - this routine will allow the 



ci 
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inputting of a BASIC input line from CONSOLE IN. 

A3ED INPUT DEVICE NUMBER CHECK - check for a valid input 
device number and file mode. This routine will 
vector into RAM at RVEC5. 

A406 OUTPUT DEVICE NUMBER CHECK - check for a valid output 
device number and file mode. This routine will 
vector into RAM at RVEC6. 

A42D CLOSE A FILE - closes the file specified by DEVNUM. 
Vectors into RAM at RVEC8. 

A549 BREAK CHECK - check to see if the break key or the 
pause (shift @) key is down. Vectors into RAM at 
RVEC11. 



A.B.X 



A701 START TAPE, READ A BLOCK - load a block of data from 
the cassette tape into RAM and return error status in 
ACCB. 



A,B,X 


GETBLK 




(A70B) 


A,B,X 


CASON 




(A77C) 



READ A BLOCK - load a block of data from the cassette 

tape into RAM. 

SYNC THE TAPE DECK - turn on the tape and wait for 

sync bytes. 



A7D1 LONG DELAY - approximately 1/2 second delay. Loads X 
register with zero and counts it down to zero. 



A,B,X,Y 


WRLDR 




(A7D8) 


A,B,X,Y 


SNDBLK 




(A7F4) 


A,B,X,Y 


A82A 



WRITE LEADER - write a leader to the cassette tape. 



WRITE BLOCK TO CASSETTE - take a block of RAM and 
write it to cassette. 

WRITE A BYTE TO TAPE - write ACCA to tape. This routine 
does the "dirty work" of actually writing a byte to 
tape. 



B,X 



A928 CLEAR SCREEN - store blanks ($60) to the video display 
screen. 



A974 DISABLE ANALOG MULTIPLEXER - disable the sound analog 
multiplexer. This will not allow any sound input to 
pass through to the analog multiplexer. 

A976 ENABLE ANALOG MULTIPLEXER - enable the sound analog 
multiplexer. This will allow sound inputs to pass 
through the analog multiplexer. 
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A,U 



A9A2 SET ANALOG MULTIPLEXER - set the control inputs to the 
analog multiplexer to allow one of the four inputs to 
pass through. 



A,B,X,U 



GETJOY READ JOYSTICKS - software 6-bit analog to digital 
(A9DE) conversion routine used to read the joystick 
potentiometers. 



A.B 



AC33 FREE RAM CHECK - check to see if there is room to store 
2*ACCB bytes in free RAM, OM error if not. 



A,B,X,U 



AD01 LINE NUMBER SEARCH - search the BASIC program for the 
line number stored in BINVAL. Set the carry flag if 
no match. 



AD26 ERASE VARIABLES - erase BASIC'S variables and reset 
pointers. 



A,B,X 



AF67 CONVERT LINE NUMBER TO BINARY - convert an ASCII line 
number in a BASIC program to binary and return the 
value in BINVAL. 



A,B,X,Y 



AFA4 PUT STRING IN STRING SPACE - move a string whose 

descriptor is located at FPA0+2 into the string space. 



NONE 



B143 NUMERIC TYPE MODE CHECK - test the contents of VALTYP 
and return if positive. TM error if negative. 



NONE 



B146 STRING TYPE MODE CHECK - test the contents of VALTYP 
and return if negative. TM error if positive. 



ALL 



B156 EVALUATE EXPRESSION - evaluate an expression in a BASIC 
statement. BASIC'S input pointer must be pointed to the 
expression. 



ALL 



B357 EVALUATE VARIABLE - evaluate the variable to which 

BASIC'S input pointer is pointing. Return with X and 
VARPTR pointing to the variable descriptor. If the 
variable is not stored in the variable table, that 
variable name with a value of zero is inserted into 
the variable table. 



B3A2 SET CARRY IF NOT ALPHA - set the carry flag if ACCA is 
not and ASCII alpha character. 



A,B,X 



INTCNV CONVERT FPA0 TO INTEGER. Convert FPA0 to a signed 
(B3ED) 2-byte integer; return the value in ACCD. 



A,B,X 



GIVABF CONVERT INTEGER TO FLOATING POINT - convert the value 
(B4F4) in ACCD into a floating point number in FPA0. 
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A.B.X B54C PUT DESCRIPTOR ON STRING STACK - put the direct page 

descriptor buffer data (STRDES) onto the string stack. 
Set the variable type (VALTYP) to string type. 

A.B.X B56D RESERVE ACCB BYTES IN STRING SPACE - reserve ACCB 

bytes in the string storage space. Return with the 
starting address of the reserved string space in X and 
FRESPC. 

A.B.X B740 INTEGER SIZE CHECK - check FPA0 to make sure it is in 

the range -32768 <= FPA0 <= 32767. If it is, return 
the value of that integer in X. 

ALL B7C2 UNCRUNCH - uncrunch a basic line into BASIC'S line 

input buffer. Vectors into RAM at RVEC24. 

ALL B821 CRUNCH - crunch the line that the input pointer is 

pointing to into the line input buffer and return the 
length of the crunched line in ACCD. 

A.B.X.U B99C SEND STRING TO CONSOLE OUT - parse a string which is 

pointed to by X and send it to CONSOLE OUT. 

A.B.X BD12 CONVERT STRING TO FLOATING POINT - convert an ASCII 

string pointed to by BASIC'S input pointer into a 

floating point value in FPA0. Vectors into RAM at 
RVEC19. 

A.B.X.U BDCC PRINT DECIMAL NUMBER TO CONSOLE OUT - convert the 

value in ACCD into a decimal number and send it to 
CONSOLE OUT. 

A.B.X.U BDD9 FLOATING POINT TO ASCII STRING - convert the floating 

point number in FPA0 into an ASCII string in the 
string buffer. 

A.B.X BEFF EXPAND THE POLYNOMIAL - calculate the value of an 

expanded polynomial expression. Enter with X pointing 
to a table of coefficients the first byte of which is 
the number of (coefficients -1) followed by that number 
of packed floating point numbers. The polynomial is 
evaluated as follows: value = ( ( ( FPA0*Y0+Y1)*FPA0+Y2)* 
FPA0 +YN) 
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ADDRESS DESCRIPTION 

B9B4 ADD .5 TO FPA0 

B9B9 SUBTRACT FPA0 FROM FLOATING POINT NUMBER POINTED 

TO BY X, LEAVE RESULT IN FPA0 

B9BC ARITHMETIC OPERATION (-) JUMPS HERE - SUBTRACT FPA0 

FROM FPA1 (ENTER WITH EXPONENT OF FPA0 IN ACCB) 

B9C2 ADD FLOATING POINT NUMBER POINTED TO BY X TO FPA0 - 

LEAVE RESULTS IN FPA0 

B9C5 ARITHMETIC OPERATION (+) JUMPS HERE - ADD FPA0 TO 

FPA1 (ENTER WITH EXPONENT OF FPA0 IN ACCB AND 
EXPONENT OF FPA1 IN ACCA) 

BA1C NORMALIZE FPA0 

BA79 NEGATE FPA0 MANTISSA 

BA83 ADD ONE TO FPA0 MANTISSA 

BACA ARITHMETIC OPERATION (*) JUMPS HERE - MULTIPLY FPA0 

BY X - RETURN PRODUCT IN FPA0 

BAD0 MULTIPLY FPA0 MANTISSA BY FPA1 , NORMALIZE HIGH 

ORDER BYTES OF PRODUCT IN FPA0. THE LOW ORDER FOUR 
BYTES OF THE PRODUCT WILL BE STORED IN VAB-VAE 

BB2F UNPACK A FLOATING POINT NUMBER FROM X INTO FPA1 

BB6A FAST MULTIPLY FPA0 BY 10 AND LEAVE RESULT IN FPA0 

BB82 DIVIDE FPA0 BY 10 

BB8F DIVIDE X BY FPA0 - LEAVE NORMALIZED QUOTIENT IN FPA0 

BB91 DIVIDE FPA1 BY FPA0. ENTER WITH EXPONENT OF FPA1 IN 

ACCA AND FLAGS SET BY TSTA 

BBA4 COMPARE FPA0 MANTISSA TO FPA1 MANTISSA - SET CARRY 

FLAG IF FPA1 >= FPA0 

BC0B COPY MANTISSA FROM FPA2 TO FPA0 

BC14 COPY A PACKED FLOATING POINT NUMBER FROM X TO FPA0 

BC2A PACK FPA0 AND SAVE IT IN FPA4 
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BC2F PACK FPA0 AND SAVE IT IN FPA3 

BC33 PACK FPA0 AND SAVE IT IN ADDRESS STORED IN VARDES 

BC35 PACK FPA0 AND SAVE IT IN ADDRESS POINTED TO BY X 

BC4A MOVE FPA1 TO FPA0 RETURN WITH MANTISSA SIGN IN ACCA 

BC5F TRANSFER FPA0 TO FPA1 

BC6D CHECK FPA0; RETURN ACCB = IF FPA0 = 0, ACCB = $FF IF 

FPA0 = NEGATIVE, ACCB = 1 IF FPA0 = POSITIVE 

BC7C CONVERT A SIGNED NUMBER IN ACCB INTO A FLOTING 

POINT NUMBER 

BC96 COMPARE A PACKED FLOATING POINT NUMBER POINTED TO 

BY X TO AN UNPACKED FLOATING POINT NUMBER IN FPA0. 
RETURN ZERO FLAG SET AND ACCB=0 IF EQUAL; ACCB = 1 
IF FPA0 > (X); ACCB = $FF IF FPA0 < (X) 

BD09 FILL MANTISSA OF FPA0 WITH CONTENTS OF ACCB 
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START 


END 


A000 


A00D 


A10D 


A128 


A129 


A146 


A147 


A170 


A26E 


A281 


A85C 


A87F 


AA29 


AA50 


AA51 


AA65 


AA66 


AB19 


AB1A 


AB66 


AB67 


ABAE 


ABAF 


ABE0 


ABE1 


ABEC 


ABED 


ABF1 


ABF2 


ABF8 


AFCF 


AFD5 


B0E8 


B0F7 


B3DF 


B3E3 


BAC5 


BAC9 


BB7D 


BB81 


BDB6 


BDBA 


BDBB 


BDBF 


BDC0 


BDC4 


BEC0 


BEC4 



DESCRIPTION 

INDIRECT JUMP TABLE 

DIRECT PAGE ROM IMAGE 

PAGE ONE ROM IMAGE 

COPYRIGHT MESSAGES 

SPECIAL KEY LOOKUP TABLE 

SINE WAVE LOOKUP TABLE 

SECONDARY DISPATCH TABLE 

OPERATOR PRECEDENCE TABLE 

PRIMARY RESERVED WORD TABLE 

SECONDARY RESERVED WORD TABLE 

PRIMARY DISPATCH TABLE 

ERROR MESSAGES 

"ERROR IN" MESSAGE 

"OK" MESSAGE 

"BREAK" MESSAGE 

"?REDO" MESSAGE 

"7EXTRA IGNORED" MESSAGE 

FLOATING POINT NUMBER -32768 

FLOATING POINT NUMBER 1.0 

FLOATING POINT NUMBER 10 

FLOATING POINT NUMBER 99999999.9 

FLOATING POINT NUMBER 999999999 

FLOATING POINT NUMBER 1E+9 

FLOATING POINT NUMBER .5 
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BEC5 BEE8 TABLE OF MANTISSAS OF UNNORMALIZED POWERS 
OF TEN 

CONSTANT RANDOM NUMBER SEED 

FLOATING POINT NUMBER 2*PI 

FLOATING POINT NUMBER .25 

MODIFIED TAYLOR SERIES SINE COEFFICIENTS 

TWO GARBAGE FLOATING POINT NUMBERS 

INTERRUPT VECTORS 



BF74 


BF77 


BFBD 


BFC1 


BFC2 


BFC6 


BFC7 


BFE5 


BFE6 


BFEF 


BFF0 


BFFF 
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MEMORY MAP 

One of the most important tools to have at your fingertips, if you are going 
to attempt to use any machine's built-in operating system, is a complete and 
accurate map of that system's memory structure. At the beginning of the BASIC 
disassembly listing you will find the most complete memory map available for the 
Color Computer outside of Microsoft's domain. It explains all of the variables in 
the direct page and what their functions are, defines all of the variables and 
buffers between the direct page and the video display RAM, and all of the variables 
that are used by Disk RAM. It identifies the areas in memory used by the variable 
tables, the array tables, the string space, cleared memory, and other important 
areas . 

The direct page provides the most useful source of rapidly accessed variable 
space available in the 6809. When you become familiar with 6809 Machine Language 
programming you will notice that it is quicker byte wise and time wise to access 
variables which are located in the direct page. The Color Computer, of course, 
keeps the direct page in page 0, which makes it relatively compatible with 6502 
programming. The direct page is also at the very bottom of RAM, where it is 
conveniently out of the way of any programs written by the user for whatever 
purpose he has in mind. If you look at the memory map at the beginning of Color 
BASIC Unravelled you will find that some of the variables will have asterisks 
designation in front of them. If that designation is PV, it defines a Permanent 
Variable. Permanent Variable has been chosen for lack of a better word; exactly 
what this means is that the variable has a defined function that is used by every 
command that BASIC has. Such a variable would be the beginning of BASIC, the top 
of free RAM, the beginning of array variables, the beginning of normal variables, 
the top of the string stock, the present pointer to the current value in the string 
stock and so forth. These variables will cause permanent harm to a BASIC program if 
they are modified during the course of your machine language program; therefore, 
you will have to be very careful how you use these variables. If you change the 
value, for instance, of the start of BASIC, you will cause BASIC to feel that there 
are fewer or more lines in the program than there actually are, which could easily 
result in an error or crash. Therefore, when you are making a program, which is 
designed to run and mesh with BASIC, you should not make any changes to a PV type 
variable, unless you are absolutely sure that you know what you are doing. 
Obviously, there can be some instances when you will want to change the start of 
BASIC. If there is some value you might want to change, you will have to make your 
decision based on what you're doing as to whether you want to change the variable 
or not, just be aware that PV variables are very tricky to change and changing them 
may blow up BASIC. 

Other variables are designated TV, which is a temporary variable, and is a 
variable whose function should be uniform for all BASIC commands. A temporary 
variable has one specific use and one specific BASIC command. A perfect example 
would be the variable labeled DIMFLG This variable is used when defining a 
dimensioned array in order to specifically tell a certain routine in BASIC that the 
variable currently being defined is an array variable as opposed to a string 
variable or single precision variable. Once the variable is defined, obviously the 
value being stored in DIMFLG has no appropriate use for any other BASIC command. 
Therefore it may be modified if required for your own use, but you should be aware 
that the DIMFLG variable can be changed during the course of a BASIC program and 
that if you use it for some specific value in your program you may not harm BASIC, 
but don't expect the value to be unmodified by BASIC in the course of the normal 
operation of BASIC. 
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The variables not labeled either TV nor PV will be used by many different 
routines in BASIC and are neither Temporary nor Permanent, because they are used by 
so many routines that it doesn't matter what happens to these variables. These 
variables have a particular function, such as a pointer, an address counter or 
normal counter. They have been given a specific label because they do have a 
particular function that remains common from BASIC command to BASIC command. There 
are also variables, which are referred to as Scratch Pad variables. These variables 
have the designation VXX, where the XX is the actual Hex address of that variable 
in RAM. These are different from the temporary variables, in that they may be used 
for any particular function by any particular BASIC command; therefore they could 
be pointers, counters or addresses or any other kind of temporary storage. These 
are the most useful to use as temporary storage for your own routines, since if you 
modify these routines between various BASIC commands (not in a BASIC command but 
between BASIC commands) it will not cause any harm whatsoever to the operation of a 
BASIC program. 

Other variables may be identified with a DV designation, which may be in 
conjunction with a TV or PV or may be by itself. This particular designation is 
used to define a double variable; that is, there are places in BASIC where a 
variable is loaded into a 16-byte register even though the variable is an 8-byte 
quantity. As such, the variable and the variable immediately following the DV 
designation may not be separated from each other; they must be immediately adjacent 
to one another in the memory space of the computer. If for any reason these 
variables are separated from one another in the memory space of the computer, the 
instructions in BASIC, which grab data from the double variable, will not function 
properly. There are some variables in Extended BASIC, which are two 16-byte 
quantities, which must be kept next to each other, such as HORBEG or VERBEG. This 
is necessary because an index register is pointed at the first of these variables, 
then it is incremented to the appropriate variable. 

AREA BETWEEN THE DIRECT PAGE AND VIDEO DISPLAY 

The area between the direct page and the video display at $400 is used by 
several different routines to store pieces of useful information. There are some 
large buffers and some small 2 or 3 byte value storage blocks, which are used by 
some specific routines and some that are in general used by many different 
routines. The interrupt jump vectors are stored from address $100 to $111. These 
contain the addresses where the interrupt factors jump to IRQ, FIRQ, NMI, RESET, 
and Software Interrupt routines. Immediately following the interrupt vectors are 
several small variables, which are used by different routines. The first of these 
is the USRJMP variable. These are three bytes, which Color BASIC uses to store the 
jump address for the USR function. When Extended BASIC is in the machine, these 
locations are not used by the USR function any more. They are instead used to store 
the timer value (TIMVAL) . Timer value is only two bytes and Extended or Disk BASIC 
does not use the third byte of this three-byte block of data. The next variable 
stored is RVSEED, a five-byte value for the variable Random Number Seed. Following 
that is CASFLG, the Case Flag, which determines whether the characters being put on 
the screen are in upper or lower case. If the value stored here is zero you are in 
lower case. If it is $FF they are in upper case. Then comes DEBVAL, which is the 
keyboard debounce delay value, a two-byte quantity. Following that is EXPJMP, which 
is the address that the EXEC command uses to jump to. Next are the command 
interpretation tables. There are normally only as many interpretation tables as 
there are ROMs plugged into the computer. If extended BASIC and not disk BASIC is 
plugged in, in the area following COMVEC are the USR function jump vectors for 
Extended BASIC. If Disk BASIC is plugged in, the USR jump vectors are transferred 
to the disk RAM. After the command interpretation tables is the keyboard buffer. 
This is the memory that is used so that there can be rollover in the keyboard 
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routine. Eight bytes are used to store the information on which keys have and have 
not been pressed. Following that are four bytes (POTVAL) to store the values of the 
joystick potentiometers. After POTVAL come BASIC'S RAM vectors. An explanation of 
these vectors is provided in the memory map at the beginning of this book and the 
user should refer to that explanation in order to get a detailed description of how 
the RAM vectors function. Following the RAM hooks is a 40-byte block of data used 
to store string descriptors. This is the string stack, which is used in string 
manipulation functions. After the string stack comes the cassette file name buffer 
where the cassette file name is stored prior to searching for a cassette file. 
After that is a 256 byte block of data which is the cassette I/O buffer. Following 
that is a two-byte sub-block to the line input buffer, which is called the line 
input header. This is used to store the jump address of the next BASIC line. After 
line header comes LINBUF which is a 251-byte buffer to store BASIC input line as it 
is being typed in. This 251-byte area is also used for several different functions 
but primarily it is used as a line input buffer. The last block of data is a 41- 
byte block of data following LINBUF up to the video display RAM which is called 
STRBUF. This is a string buffer, which is used to hold temporary string information 
and temporary strings before they are moved into the string space. It is most 
commonly used in floating point to ASCII string and ASCII string to floating point 
data conversions. Then from $400 to $5FF is the 512-byte block of video display 
RAM. If you have a disk hooked up to your system, the area from $600 to $989 is 
used by the disk for its own special I/O buffers and disk variables. 
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INTERRUPTS 

BASIC uses the 6809 interrupt structure to control those commands, which 
require precise timing intervals. The manner in which the interrupt signals are 
handled by the 6809 and 6821 (or 6822) in the Color Computer is described in the 
FACTS book and will not be covered in this book. Only the software aspects will be 
covered. 



IRQ The 6821 Peripheral Interface, Adapter (PIA) may 
be programmed to pass either a 16.67 ms (60HZ) or 
a 63.5 microsecond input to the 6809 's IRQ 
interrupt pin. Color BASIC uses only the 60HZ 
interrupt; the 63.5 microsecond input is never 
enabled. The IRQ routine is used to increment or 
decrement the following parameters: 



COMMAND 
SOUND 
PLAY 
TIMER 
(DOS BASIC) 



VARIABLE IRQ FUNCTION 

SNDDUR Decrement SNDDUR 

PLYTMR Decrement VD5 from PLYTMR 

TIMVAL Increment TIMVAL 

RDYTMR Decrement RDYTMR 



The SOUND and PLAY commands will fall into an endless timing loop which will 
only be terminated by the IRQ routine's decrementing SNDDUR and/or PLYTMR to zero. 

FIRQ The PIAs may be programmed to pass either the RS 
232 status input or the cartridge interrupt 
signal to the 6809 's FIRQ interrupt pin. Color 
BASIC uses FIRQ to vector control to a ROM-PAK if 
pins 7 & 8 of the cartridge port are connected 
together by a cartridge. 

NMI The 6809 's NMI pin is connected only to the 

cartridge port. The Disk Operating System (DOS) 
uses the NMI to vector out of data transfers 
between the 6809 and the 1793 Floppy Disk 
Controller . 

SWI Not used by Color BASIC 

SWI2 Not used by Color BASIC 

SWI3 The DOS command of Disk BASIC calls SWI3. The 

user must provide a SWI3 servicing routine - Disk 
BASIC does not provide one. 



Gl 



COLOR BASIC UNRAVELLED 



EXPRESSIONS AND OPERATORS 



ORIGIN: SPECTRAL ASSOC 
REVISED : 12/13/99 WALTER K ZYDHEK 



EXPRESSIONS AND OPERATORS 



Relational Operators 

= Equal 

< Less Than 

> Greater Than 

<= Less Than or Equal 

>= Greater Than or Equal 

<> Not Equal 



Arithmetic Operators 
+ Add 

Subtract 
* Multiply 
/ Divide 
A Exponentiation 

Negation 



Boolean Operators 

AND 

OR 

NOT 



String Operators 

+ Concatenation 



Rules for Evaluating Expressions 

1 . Operations of higher precedence are performed before operations of 
lower precedence. This means the multiplications and divisions are 
performed before additions and subtractions. As an example, 2+10/5 
equals 4, not 2.4. When operations of equal precedence are found in a 
formula, the left-hand one is executed first: 6-3+5 = 8, not -2. 

2. The order in which operations are performed can always be specified 
explicitly through the use of parentheses. For instance, to add 5 to 3 
and then divide that by 4, we would use (5 + 3) /4, which equals 2. If, 
instead, we had used 5+3/4, we would get 5.75 as a result (5 plus 3/4) . 

The precedence of operators used in evaluating expressions is as follows, 
in order beginning with the highest precedence: (Note: Operators listed on 
the same line have the same precedence) . 



FORMULAS ENCLOSED IN PARENTHESIS ARE ALWAYS EVALUATED FIRST. 

EXPONENTATION 



NEGATION 

*/ 

+ - 

RELATIONAL OPERATORS 

(EQUAL PRECEDENCE FOR 
ALL SIX) . 



7) NOT 



AND 
OR 



-X WHERE X MAY BE A FORMULA 

MULTIPLICATION AND DIVISION 

ADDITION AND SUBTRACTION 

= EQUAL 

<> NOT EQUAL 

< LESS THAN 

> GREATER THAN 

<= LESS THAN OR EQUAL 

>= GREATER THAN OR EQUAL 

LOGICAL AND BITWISE "NOT" LIKE 

NEGATION, NOT TAKES ONLY THE 

FORMULA TO ITS RIGHT AS AN 

ARGUMENT 

LOGICAL AND BITWISE "AND" 

LOGICAL AND BITWISE "OR" 



The ASCII table is defined in Appendix J. It contains the order in which 
characters within the Color Computer are represented when two strings are compared. 
Characters within a set of strings are compared starting at the leftmost character 
to the end of the field specified. 
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Using the ASCII table, we can compare a string containing an "A" to one 
containing a "B" in the same position. The result is that the second string is 
greater than the first. 

A string containing a blank is less than a "1", which is less than an "A", 
which is less than a "B" . The string "A" is less than the string "ABC" or any 
string containing "A" as the first character. All characters are compared in 
sequence with the first unequal character defining the relationship between the 
strings. Thus, the same relational functions may be used for both strings and 
numbers . 
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Listed below are the differences between Color BASIC Version 1.0 and 
Version 1.2 



CHANGE 


ADDRESS 


Version 1.0 


Version 1.2 


A 


$A001 


$C1 




$CB 




B 


$A01B-$A0C7 


SEE 


LISTING 1 






C 


$A102-$A104 


LDU 


#$A108 


LEAY 


$A108,PCR 


D 


$A114 


$57 




$58 




E 


$A155 


$30 




$32 




F 


$A15E 


$30 




$32 




G 


$A1B5-$A26D 


SEE 


LISTING 2 






H 


$A2C3-$A2FA 


SEE 


LISTING 3 






I 


$A440 


$08 




$03 




J 


$A56A 


$C1 




$CB 




K 


$A6EB 


$07 




$14 




L 


$ADFD 


$C1 




$CB 




M 


$B23F 


$E8 




$E3 




N 


$B38E 


$72 




$75 




P 


$B3ED-$B427 


SEE 


LISTING 4 






Q 


$B9D6 


$2B 


BMI 


$25 


BCS 



Change A is a branch length change caused by the keyboard driver mod. 

Change B (Listing 1) is a major rework of the warm and cold start 
initializations required to allow the computer to accept 64K dynamic 
RAMs. 

Change C was required because change B changed the storage location 
of the RESET jump vector from the U register to the Y register. 

Change D modified the line printer baud rate. 

Change E is the version number. 

Change F is the copyright year. 

Change G is a major change (Listing 2) to the keyboard driver 
allowing a quick scan of the keyboard if no keys are down and 
filtering of joystick button depressions out of the keyboard 
scan. 

Change H is also a major change (Listing 3) which allows the line 
printer driver to output an eight bit character and will not allow 
any transmission until the receiving device is ready. 

Change I causes an end of program block to be written to a cassette 
file if the buffer is empty when the file is closed. 

Change J speeds up the INKEY$ command by not entering the keyboard 
scan routine if no keys are depressed. 

Change K is a minor change which causes the upper left hand corner 
of the screen to blink during cassette loading operations. 

Change L speeds up the BREAK key check routine by not entering the 
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keyboard scan routine if no more keys are depressed. 

Change M is a minor change which slightly speeds up the expression 
evaluation routine. 

Change N is merely a different length branch caused by change P. 

Change P (Listing 4) causes a numeric variable type check to be 
done before the INTCNV (FPA0 to integer) routine. 

Change Q fixed a minor bug in the floating point addition routine. 



*** LISTING 1 

A01B 

A01D 

A01F 

A021 

A023 

A025 



BNE 


BACDST 


LDX 


RSTVEC 


LDA 


,x 


CMPA 


#$12 


BNE 


BACDST 


JMP 


,x 



NO - DO A COLD START 

WARM START VECTOR 

GET FIRST BYTE OF WARM START ADDR 

IS IT A NOP? 

NO - DO A COLD START 

YES, GO THERE 



A027 
A02A 
A02B 

A02D 
A030 
A032 
A034 
A036 
A039 
A03B 
A03D 

A03F 
A042 
A044 
A046 
A047 

A049 
A04B 

A04D 
A04F 
A051 
A053 
A055 
A057 
A059 
A05C 
A05E 
A060 
A061 
A063 
A066 
A068 
A06A 



RESVEC LDU #LA00E 

LA02A CLRB 

TFR B,DP 
******************** 



LA05E 



LDX 


#PIA0 


CLR 


1,X 


CLR 


3,X 


CLR 


,x 


LDD 


#$FF34 


STA 


2,X 


STB 


1,X 


STB 


3,X 


r************ 


LDX 


#PIA1 


CLR 


1,X 


CLR 


3,X 


DECA 




STA 


,x 


LDA 


#$F8 


STA 


2,X 


STB 


1,X 


STB 


3,X 


CLR 


2,X 


LDA 


#2 


STA 


,x 


LDA 


2,X 


LDX 


#SAMREG 


LDB 


#16 


STA 


,X++ 


DECB 




BNE 


LA05E 


STA 


SAMREG+9 


ANDA 


#4 


BEQ 


LA06C 


STA 


-5,X 



BASIC WARM START ENTRY (RESET) 
* 

* USE PAGE AS DIRECT PAGE 



POINT X TO PIA0 

CLEAR CONTROL REGISTER A ON PIA0(U8) 

CLEAR CONTROL REGISTER B 

A SIDE IS INPUT 

B SIDE IS OUTPUT 

ENABLE PERIPHERAL REGISTERS 

AND CA2, CB2 AS OUTPUTS 

POINT X TO PIA1 

* CLEAR CONTROL REGISTER A ON PIAKU4) 

* CLEAR CONTROL REGISTER B 
A - REG NOW HAS $FE 

= BITS 1-7 ARE OUTPUTS, BIT IS INPUT 

= ON SIDE A 
* 

* BITS 0-2 ARE INPUTS, BITS 3-7 ARE 

* OUTPUTS ON B SIDE 

ENABLE PERIPHERAL REGISTERS 

AND CA2, CB2 AS OUTPUTS 

ZEROS TO 6847 
* 

* MAKE SERIAL OUTPUT MARKING 

READ PORT B OF U4 (TO GET RAM SIZE) 

SAM CONTROL REGISTER ADDR 

16 SAM CONTROL REGISTER BITS 

ZERO OUT SAM CONTROL REGISTER (CLEAR BITS) 

DECREMENT REGISTER COUNTER 

BRANCH IF NOT DONE 

SET DISPLAY PAGE AT $400 

MASK OFF ALL BUT RAM SIZE BIT 

BRANCH IF 4K RAM 

SET FOR 16K DYNAMIC 



12 



A06C 


LA06C 


JMP 


,u 


A06E 


BACDST 


LDX 


#0 


A071 


LA071 


CLR 


,x+ 


A073 




CMPX 


#VIDRAM 


A076 




BNE 


LA071 


A078 




JSR 


LA928 


A07B 




LDX 


#LA10D 


A07E 




LDU 


#CMPMID 


A081 




LDB 


#28 


A083 




JSR 


LA59A 


A086 




LDU 


#IRQVEC 


A089 




LDB 


#30 


A08B 




JSR 


LA59A 


A08E 




LDX 


#LB277 


A091 




STX 


3,U 
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GO DO A WARM START 

POINT X TO TOP OF DIRECT PAGE 

CLEAR FIRST IK OF RAM 

COMPARE TO TOP OF DISPLAY (IK) 

BRANCH IF NOT DONE 

CLEAR SCREEN 

POINT X TO ROM IMAGE OF DIRECT PAGE VARS 

POINT U TO RAM DESTINATION 

28 BYTES 

MOVE (B) BYTES FROM (X) TO (U) 

POINT U TO NON-DIRECT PAGE VARIABLES 

30 BYTES 

MOVE (B) BYTES FROM (X) TO (U) 

ADDR OF SYNTAX ERROR ROUTINE 

* SET EXBAS PRIMARY AND SECONDARY 

* * COMMAND INTERPRETATION TABLES TO 
A093 STX 8,11 * SYNTAX ERROR (U POINTS TO $12A AT 

* * THIS POINT) 
A095 LDX #RVEC0 POINT X TO RAM VECTORS 
A098 LDA #$39 OP CODE OF RTS 
A09A L409A STA ,X+ PUT RTS ' S IN THE RAM VECTORS 
A09C CMPX #RVEC+25*3 END OF RAM VECTORS? 
A09F BNE LA09A NO KEEP INSERTING RTS 
A0A1 STA LINHDR-1 PUT RTS IN $2D9 

A0A4 LDX VIDRAM+$200 POINT TO COLOR BASIC'S START OF PROGRAM 

A0A7 CLR ,X+ PUT A ZERO AT THE START OF BASIC 

A0A9 STX TXTTAB BEGINNING OF BASIC PROGRAM 

A0AB LA0AB LDA 2,X LOOK FOR END OF PROGRAM 

A0AD COMA 

A0AE STA 2,X STORE IN RAM 

A0B0 CMPA 2,X IS VALUE IN MEMORY THE SAME AS WHAT WAS 

* JUST PUT THERE? 
A0B2 BNE LA0BA IF NOT, THEN IT IS NOT RAM OR THE RAM IS 

* BAD 

MOVE TO NEXT RAM LOCATION 
RESTORE VALUE OF MEMORY JUST CHANGED 
KEEP CHECKING RAM 
SET TOP OF RAM POINTER 
TOP OF STRING SPACE 
START OF STRING VARIABLES 

* CLEAR 200 BYTES ON A COLD START - 

* SAVE NEW TOP OF FREE RAM 
PUT STACK THERE (AT MEMEND-200) 

GO CHECK KEYBOARD 

LOOP IF NO KEY DOWN 

BLANK 

BLANK CURRENT CURSOR CHAR ON SCREEN 

KEYSTROKE FROM THE KEYBOARD IF A KEY 
IT RETURNS ZERO TRUE IF THERE WAS NO KEY DOWN. 



A0B4 




LEAX 


1,X 


A0B6 


LA0B6 


COM 


1,X 


A0B8 




BRA 


LA0AB 


A0BA 


LA0BA 


STX 


TOPRAM 


A0BC 




STX 


MEMSIZ 


A0BE 




STX 


STRTAB 


A0C0 




LEAX 


-200, X 


A0C4 




STX 


FRETOP 


A0C6 




TFR 


X,S 


*** LISTING 2 








A1B5 




BSR 


KEYIN 


A1B7 




BEQ 


LA1B3 


A1B9 




LDB 


#$60 


A1BB 




STB 


[CURPOS] 


A1BF 


LA1BF 

* 


PULS 


B,X,PC 




* THIS 


ROUTINE GETS A 




* IS DOWN. IT RETURNS 

* 


A1C1 


KEYIN 


PSHS 


B,X 


A1C3 




BSR 


LA1C8 


A1C5 




TSTA 





SAVE REGISTERS 
GET KEYSTROKE 
SET FLAGS 
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A1C6 
A1C8 
A1CA 
A1CD 
A1CF 



A1D1 
A1D4 
A1D6 
A1D8 
A1DA 
A1DC 
AIDE 
A1E0 
A1E1 
A1E3 
A1E5 
A1E6 
A1E9 



A1EB 
A1ED 



LA1C8 



LA1D4 



PULS 


B,X,PC 


LEAS 


-3,S 


LDX 


#KEYBUF 


CLR 


,s 


LDB 


#$FE 



STB 


PIA0+2 


BSR 


LA238 


STA 


i,s 


EORA 


,x 


ANDA 


,x 


LDB 


1,S 


STB 


,x+ 


TSTA 




BNE 


LA1ED 


INC 


,s 


COMB 




ROL 


PIA0+2 


BCS 


LA1D4 



PULS B,X,PC 



LA1ED LDB PIA0+2 



RESTORE REGISTERS 

ALLOCATE 3 STORAGE BYTES ON STACK 

SET X TO KEYBOARD MEMORY BUFFER 

RESET COLUMN COUNTER 

COLUMN STROBE DATA, CHECK BIT FIRST 

A COLUMN IS BEING CHECKED IF THE 

CORRESPONDING BIT IN THE COLUMN STROBE 

REGISTER ($FF02) HAS A ZERO IN IT. 

STORE IN COLUMN STROBE REGISTER 

GET KEY DATA 

TEMP STORE KEY DATA 

COMPARE WITH KEY MEMORY DATA 

ACCA=0 IF THIS KEY WAS DOWN LAST TIME, TOO 

GET NEW KEY DATA 

STORE IT IN KEY MEMORY 

WAS A NEW KEY DOWN? 

YES 

NO, INCREMENT COLUMN COUNTER 

SET CARRY FLAG 

ROTATE COLUMN STROBE DATA LEFT ONE BIT 

ALL COLUMNS CHECKED WHEN ZERO IN THE 

COLUMN STROBE DATA IS ROTATED INTO THE 

CARRY FLAG 

RESTORE REGISTERS 

GET COLUMN STROBE DATA 



A1F0 
A1F2 
A1F4 
A1F6 

A1F7 

A1F9 



A1FB 
A1FD 
A1FF 
A201 
A203 
A205 
A207 
A20A 
A20C 
A20E 
A210 
A213 
A216 
A218 
A21B 
A21D 
A21F 
A221 



************************************************************** 

** THIS ROUTINE CONVERTS THE KEY DEPRESSION INTO A NUMBER 
** FROM 0-50 IN ACCB CORRESPONDING TO THE KEY THAT WAS DOWN 

TEMP STORE IT 

TO MAKE SURE ACCB=0 AFTER FIRST ADDB #8 
LA in ADDB #8 ADD 8 FOR EACH ROW OF KEYBOARD 

ACCA CONTAINS THE ROW NUMBER OF THIS KEY 

ADD 8 FOR EACH ROW 

GO ON UNTIL A ZERO APPEARS IN THE CARRY 

ADD IN THE COLUMN NUMBER 

* * * * + A * * A: A A: A A A A A A A A * At **************************************** * 

JE IN ACCB INTO ASCII 

THE 'AT SIGN' KEY WAS DOWN 
WAS IT A LETTER? 
NO 

YES, CONVERT TO UPPER CASE ASCII 
CHECK FOR THE SHIFT KEY 
IT WAS DOWN 

NOT DOWN, CHECK THE UPPER/LOWER CASE FLAG 
UPPER CASE 

CONVERT TO LOWER CASE 
LA20E STB ,S TEMP STORE ASCII VALUE 

GET KEYBOARD DEBOUNCE 
GO WAIT A WHILE 
GET COLUMN STROBE DATA 
STORE IT 
READ A KEY 

IS IT THE SAME KEY AS BEFORE DEBOUNCE? 
PUT THE ASCII VALUE OF KEY BACK IN ACCA 
NOT THE SAME KEY 



STB 


2,S 


LDB 


#$F8 


ADDB 


#8 


LSRA 




BCC 


LA1F4 


ADDB 


,s 


:-k-kifk-k-k-k-k-k-k-ki 


)ONVERT THE \ 


BEQ 


LA245 


CMPB 


#26 


BHI 


LA247 


ORB 


#$40 


BSR 


LA22D 


BEQ 


LA20E 


LDA 


CASFLG 


BNE 


LA20E 


ORB 


#$20 


STB 


,s 


LDX 


DEBVAL 


JSR 


LA7D3 


LDB 


2,S 


STB 


PIA0+2 


BSR 


LA238 


CMPA 


1,S 


PULS 


A 


BNE 


LA22A 
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A223 


CMPA 


#$12 


IS SHIFT ZERO DOWN? 


A225 


BNE 


LA22B 


NO 


A227 


COM 


CASFLG 


YES, TOGGLE UPPER/LOWER CASE FLAG 


A22A 


LA22A CLRA 




SET ZERO FLAG TO INDICATE NO NEW KEY DOWN 


A22B 


LA22B PULS 


X,PC 


RESTORE REGISTERS 




*** TEST FOR 


THE SHIFT 


KEY 


A22D 


LA22D LDA 


#$7F 


COLUMN STROBE 


A22F 


STA 


PIA0+2 


STORE TO PIA 


A232 


LDA 


PIA0 


READ KEY DATA 


A235 


ANDA 


#$40 


CHECK FOR SHIFT KEY, SET ZERO FLAG IF DOWN 


A237 


RTS 




RETURN 




*** READ THE 


KEYBOARD 




A238 


LA238 LDA 


PIA0 


READ PIA0, PORT A TO SEE IF KEY IS DOWN 




** 




A BIT WILL BE ZERO IF ONE IS 


A23B 


ORA 


#$80 


MASK OFF THE JOYSTICK COMPARATOR INPUT 


A23D 


TST 


PIA0+2 


ARE WE STROBING COLUMN 7? 


A240 


BMI 


LA244 


NO 


A242 


ORA 


#$C0 


YES, FORCE ROW 6 TO BE HIGH -THIS WILL 



A244 



LA244 RTS 



CAUSE THE SHIFT KEY TO BE IGNORED 
RETURN 



A245 


LA245 


LDB 


#51 


A247 


LA247 


LDX 


#C0NTAB-$36 


A24A 




CMPB 


#33 


A24C 




BLO 


LA264 


A24E 




LDX 


#C0NTAB-$54 


A251 




CMPB 


#48 


A253 




BHS 


LA264 


A255 




BSR 


LA22D 


A257 




CMPB 


#43 


A259 




BLS 


LA25D 


A25B 


** 
** 


EORA 


#$40 


A25D 


LA25D 


TSTA 




A25E 




BEQ 


LA20E 


A260 




ADDB 


#$10 


A262 




BRA 


LA20E 


A264 


LA264 
** 

** 


ASLB 




A265 




BSR 


LA22D 


A267 




BNE 


LA26A 


A269 




INCB 




A26A 


LA26A 


LDB 


B,X 


A26C 




BRA 


LA20E 


*** LISTING 3 








A2C3 




BSR 


LA2FB 


A2C5 




AS LA 




A2C6 




LDB 


#8 


A2C8 


LA2C8 


PSHS 


B 


A2CA 


* 


CLRB 





CODE FOR 'AT SIGN' 

POINT X TO CONTROL CODE TABLE 

KEY NUMBER <33? 

YES (ARROW KEYS, SPACE BAR, ZERO) 

POINT X TO MIDDLE OF CONTROL TABLE 

KEY NUMBER > 48? 

YES (ENTER, CLEAR, BREAK, AT SIGN) 

CHECK SHIFT KEY (ACCA WILL CONTAIN STATUS) 

IS KEY A NUMBER, COLON OR SEMICOLON? 

YES 

TOGGLE BIT 6 OF ACCA WHICH CONTAINS THE 

SHIFT DATA ONLY FOR SLASH, HYPHEN, PERIOD, 

COMMA 

SHIFT KEY DOWN? 

YES 

NO, ADD IN ASCII OFFSET CORRECTION 

GO CHECK FOR DEBOUNCE 

MULT ACCB BY 2 - THERE ARE 2 ENTRIES IN 

CONTROL TABLE FOR EACH KEY - ONE SHIFTED, 

ONE NOT 

CHECK SHIFT KEY 

NOT DOWN 

ADD ONE TO GET THE SHIFTED VALUE 

GET ASCII CODE FROM CONTROL TABLE 

GO CHECK DEBOUNCE 



SET OUTPUT TO MARKING 

SEND 7 BITS AND ONE STOP BIT (BIT 7=0) 

SEND 8 BITS 

SAVE BIT COUNTER 

CLEAR DA IMAGE 1 ZEROS TO DA WHEN SENDING 

RS-232 DATA 
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A2CB 



LSRA 



A2CC 




ROLB 




A2CD 




ROLB 




A2CE 




STB 


DA 


A2D1 




BSR 


LA302 


A2D3 




NOP 




A2D4 




NOP 




A2D5 




NOP 




A2D6 




BSR 


LA302 


A2D8 




PULS 


B 


A2DA 




DECB 




A2DB 




BNE 


LA2C8 


A2DD 




BSR 


LA2FB 


A2DF 




PULS 


CC,A 


A2E1 




CMPA 


#CR 


A2E3 




BEQ 


LA2ED 


A2E5 




INC 


LPTPOS 


A2E7 




LDB 


LPTPOS 


A2E9 




CMPB 


LPTWID 


A2EB 




BLO 


LA2F3 


A2ED 


LA2ED 


CLRB 


LPTPOS 


A2EF 




BSR 


LA305 


A2F1 




BSR 


LA305 


A2F3 


LA2F3 


LDB 


PIA1+2 


A2F6 




LSRB 




A2F7 




BCS 


LA2F3 


A2F9 




PULS 


B,X,PC 


*** LISTING 4 








B3ED 


INTCNV 


LDA 


FP0EXP 


B3EF 




CMPA 


#$90 


B3F1 




BCS 


LB3FB 


B3F3 




LDX 


#LB3DF 


B3F6 




JSR 


LBC96 


B3F9 




BNE 


LB44A 


B3FB 


LB3FB 


JSR 


LBCC8 


F3FE 




LDD 


FPA0+3 


B400 




RTS 






* EVALUATE AN ARRAY 


B401 


LB401 


LDB 


DIMFLG 


B403 




LDA 


VALTYP 


B405 




PSHS 


A,B 


B407 




CLRB 




B408 


LB408 


LDX 


VARNAM 


B40A 




PSHS 


B,X 


B40C 




BSR 


LB3E4 


B40E 


* 


PULS 


B.X.Y 


B410 




STX 


VARNAM 


B412 




LDU 


FPA0+2 


B414 




PSHS 


Y,U 


B416 




INCB 




B417 




JSR 


GETCCH 


B419 




CMPA 


#', 


B41B 




BEQ 


LB408 



ROTATE NEXT BIT OF OUTPUT CHARACTER TO 
CARRY FLAG 

* ROTATE CARRY FLAG INTO BIT ONE 

* AND ALL OTHER BITS SET TO ZERO 
STORE IT TO DA CONVERTER 

GO WAIT A WHILE 



GO WAIT SOME MORE 

GET BIT COUNTER 

SENT ALL 8 BITS? 

NO 

SEND STOP BIT (ACCB=0) 

RESTORE OUTPUT CHARACTER & INTERRUPT STATS 

IS IT A CARRIAGE RETURN? 

YES 

INCREMENT CHARACTER COUNTER 

CHECK FOR END OF LINE PRINTER LINE 

AT END OF LINE PRINTER LINE? 

NO 

RESET CHARACTER COUNTER 

* 

* DELAY FOR CARRIAGE RETURN 
WAIT FOR HANDSHAKE 
CHECK FOR RS232 STATUS 
NOT YET READY 
RESTORE REGISTERS 



GET FPA0 EXPONENT 

* COMPARE TO 32768 - LARGEST INTEGER 

* EXPONENT AND BRANCH IF FPA0 < 32768 
POINT X TO FP VALUE OF -32768 
COMPARE -32768 TO FPA0 

'FC ERROR IF NOT = 

CONVERT FPA0 TO A TWO BYTE INTEGER 

GET THE INTEGER 

VARIABLE 

GET ARRAY FLAG 

GET VARIABLE TYPE 

SAVE THEM ON THE STACK 

RESET DIMENSION COUNTER 

GET VARIABLE NAME 

SAVE VARIABLE NAME AND DIMENSION COUNTER 

EVALUATE EXPRESSION (DIMENSION LENGTH) 

PULL OFF VARIABLE NAME, DIMENSION COUNTER 

ARRAY FLAG 

SAVE VARIABLE NAME AND VARIABLE TYPE 

GET DIMENSION LENGTH 

SAVE DIMENSION LENGTH, ARRAY FLAG, 

VARIABLE TYPE 

INCREASE DIMENSION COUNTER 

GET CURRENT INPUT CHARACTER 

CHECK FOR ANOTHER DIMENSION 

BRANCH IF MORE 
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STB TMPLOC 
JSR LB267 
PULS A,B 
STA VALTYP 
STB DIMFLG 




SAVE D 
SYNTAX 

* REST! 

* FLAG 
* 
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DIMENSION COUNTER 
CHECK FOR A ")" 
RE VARIABLE TYPE AND ARRAY 
- LEAVE DIMENSION LENGTH ON STACK 
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Listed below are the differences between Color BASIC Version 1.1 and 
Version 1.2 



CHANGE 


ADDRESS 


Version 1.0 




Version 1.2 


A 


$A001 




$C1 






$CB 


B 


$A114 




$57 






$58 


C 


$A155 




$31 






$32 


D 


$A15E 




$30 






$32 


E 


$A1B5- 


$A26D 


SEE 


LISTING 


5 




F 


$A2C3- 


$A2FA 


SEE 


LISTING 


6 




G 


$A56A 




$C1 






$CB 


H 


$ADFD 




$C1 






$CB 


J 


$B23F 




$E8 






$E3 


K 


$B38E 




$72 






$75 


L 


$B3ED- 


$B427 


SEE 


LISTING 


7 




M 


$B9D6 




$2B 


BMI 




$25 BCS 



Change A is a branch length change caused by the keyboard driver mod. 

Change B modified the line printer baud rate. 

Change C is the version number. 

Change D is the copyright year. 

Change E is a major change (Listing 5) to the keyboard driver 
allowing a quick scan of the keyboard if no keys are down. 

Change F is also a major change to the line printer driver which 
will not allow any transmission until the receiving device is 
ready (Listing 6). 

Change G speeds up the INKEY$ command by not entering the keyboard 
scan routine if no keys are depressed. 

Change H speeds up the BREAK key check routine by not entering the 
keyboard scan routine if no keys are depressed. 

Change J is a minor change which slightly speeds up the expression 
evaluation routine. 

Change K is merely a different length branch caused by change L. 

Change L (Listing 7) causes a numeric variable type check to be 
done before the INTCNV (FPA0 to integer) routine. 

Change M fixed a minor bug in the floating point addition routine. 



GO CHECK KEYBOARD 

LOOP IF NO KEY DOWN 

BLANK 

BLANK CURRENT CURSOR CHAR ON SCREEN 



*** LISTING 5 








A1B5 




BSR 


KEYIN 


A1B7 




BEQ 


LA1B3 


A1B9 




LDB 


#$60 


A1BB 




STB 


[CURPOS] 


A1BF 


LA1BF 


PULS 


B,X,PC 
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* THIS ROUTINE GETS A KEYSTROKE FROM THE KEYBOARD IF A KEY 

* IS DOWN. IT RETURNS ZERO TRUE IF THERE WAS NO KEY DOWN. 



A1C1 


KEYIN 


PSHS 


B.X.U 


SAVE REGISTERS 


A1C3 






BSR 


LA1C8 


GET KEYSTROKE 


A1C5 






TSTA 




SET FLAGS 


A1C6 






PULS 


B,X,U,PC 


RESTORE REGISTERS 


A1C8 


LA1C8 


LDU 


#PIA0 


POINT TO PIA0 


A1CA 






LDX 


#KEYBUF 


KEYBOARD MEMORY BUFFER 


A1CE 






CLRA 




* CLEAR CARRY FLAG, SET COLUMN COUNTER 


A1CF 






DECA 




* (ACCA) TO $FF 


A1D0 






PSHS 


X,A 


SAVE COLUMN CTR & 2 BLANK (X REG) ON STACK 


A1D2 






STA 


2,U 


INITIALIZE COLUMN STROBE TO $FF 


A1D4 






FCB 


SKP1 


SKIP ONE BYTE 


A1D5 


LA1D5 


COMB 




SET CARRY FLAG 


A1D6 






ROL 


2,U 


* ROTATE COLUMN STROBE DATA LEFT 1 BIT, 


A1D8 






BCC 


LA1BF 


* CARRY INTO BIT 0-RETURN IF 8 BITS DONE 


A1DA 






INC 


,s 


INCREMENT COLUMN POINTER 


A1DC 






BSR 


LA239 


READ KEYBOARD DATA ROW 


AIDE 






STA 


i,s 


TEMP STORE KEY DATA 


A1E0 






EORA 


,x 


SET ANY BIT WHERE A KEY HAS MOVED 


A1E2 


* 




ANDA 


,x 


ACCA=0 IF NO NEW KEY DOWN, <70 IF KEY WAS 
RELEASED 


A1E4 






LDB 


1,S 


GET NEW KEY DATA 


A1E6 






STB 


,x+ 


STORE IT IN KEY MEMORY 


A1E8 






TSTA 




WAS A NEW KEY DOWN? 


A1E9 






BEQ 


LA1D5 


NO-CHECK ANOTHER COLUMN 


A1EB 






LDB 


2,U 


* GET COLUMN STROBE DATA AND 


A1ED 






STB 


2,S 


* TEMP STORE IT ON THE STACK 




************************************************************** 




** 


THIS 


ROUTINE CONVERTS 


THE KEY DEPRESSION INTO A NUMBER 




** 


FROM 


0-50 


IN ACCB CORRESPONDING TO THE KEY THAT WAS DOWN 


A1EF 






LDB 


#$F8 


TO MAKE SURE ACCB=0 AFTER FIRST ADDB #8 


A1F1 


LA1F1 


ADDB 


#8 


ADD 8 FOR EACH ROW OF KEYBOARD 


A1F3 


* 




LSRA 




ACCA CONTAINS THE ROW NUMBER OF THIS KEY 
ADD 8 FOR EACH ROW 


A1D4 






BCC 


LA1F1 


GO ON UNTIL A ZERO APPEARS IN THE CARRY 


A1F6 






ADDB 


,s 


ADD IN THE COLUMN NUMBER 




************************************************************** 




** 


NOW 


CONVERT THE VALUE 


IN ACCB INTO ASCII 


A1F8 






BEQ 


LA244 


THE 'AT SIGN' KEY WAS DOWN 


A1FA 






CMPB 


#26 


WAS IT A LETTER? 


A1FC 






BHI 


LA246 


NO 


A1FE 






ORB 


#$40 


YES, CONVERT TO UPPER CASE ASCII 


A200 






BSR 


LA22E 


CHECK FOR THE SHIFT KEY 


A202 






BEQ 


LA20B 


IT WAS DOWN 


A204 






LDA 


CASFLG 


NOT DOWN, CHECK THE UPPER/LOWER CASE FLAG 


A207 






BNE 


LA20B 


UPPER CASE 


A209 






ORB 


#$20 


CONVERT TO LOWER CASE 


A20B 


LA20B 


STB 


,s 


TEMP STORE ASCII VALUE 


A20D 






LDX 


DEBVAL 


GET KEYBOARD DEBOUNCE 


A210 






JSR 


LA7D3 


GO WAIT A WHILE 


A213 






LDB 


#$FF 


* SET COLUMN STROBE TO ALL ONES (NO 


A215 






BSR 


LA237 


* STROBE) AND READ KEYBOARD 


A217 






INCA 




= INCR ROW DATA, ACCA NOW IF NO JOYSTK 


A218 






BNE 


LA220 


= BUTTON DOWN. BRANCH IF JOYSTK BUTTON DN 
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A21A 


LA21A 


LDB 


2,S 


GET COLUMN STROBE DATA 


A21C 




BSR 


LA237 


READ A KEY 


A21E 




CMPA 


i,s 


IS IT THE SAME KEY AS BEFORE DEBOUNCE? 


A220 


LA220 


PULS 


A 


PUT THE ASCII VALUE OF KEY BACK IN ACCA 


A222 




BNE 


LA22B 


NOT THE SAME KEY 


A224 




CMPA 


#$12 


IS SHIFT ZERO DOWN? 


A226 




BNE 


LA22C 


NO 


A228 




COM 


CASFLG 


YES, TOGGLE UPPER/LOWER CASE FLAG 


A22B 


LA22B 


CLRA 




SET ZERO FLAG TO INDICATE NO NEW KEY DOWN 


A22C 


LA22C 


PULS 


X,PC 


REMOVE TEMP STORAGE SLOTS FROM STACK 




*** TEST FOR 


THE SHIFT KEY 


A22E 


LA22E 


LDA 


#$7F 


COLUMN STROBE 


A230 




STA 


2,U 


STORE TO PIA 


A232 




LDA 


,u 


READ KEY DATA 


A234 




ANDA 


#$40 


CHECK FOR SHIFT KEY, SET ZERO FLAG IF DOWN 


A236 




RTS 




RETURN 




*** READ THE 


KEYBOARD 




A237 


LA237 


STB 


2,U 


SAVE NEW COLUMN STROBE VALUE 


A239 


LA239 
** 


LDA 


,u 


READ PIA0, PORT A TO SEE IF KEY IS DOWN 
A BIT WILL BE ZERO IF ONE IS 


A23B 




ORA 


#$80 


MASK OFF THE JOYSTICK COMPARATOR INPUT 


A23D 




TST 


2,U 


ARE WE STROBING COLUMN 7? 


A23F 




BMI 


LA243 


NO 


A241 


** 


ORA 


#$C0 


YES, FORCE ROW 6 TO BE HIGH -THIS WILL 
CAUSE THE SHIFT KEY TO BE IGNORED 


A243 


LA243 


RTS 




RETURN 


A244 


LA244 


LDB 


#51 


CODE FOR 'AT SIGN' 


A246 


LA246 


LDX 


#C0NTAB-$36 


POINT X TO CONTROL CODE TABLE 


A249 




CMPB 


#33 


KEY NUMBER <33? 


A24B 




BLO 


LA263 


YES (ARROW KEYS, SPACE BAR, ZERO) 


A24D 




LDX 


#C0NTAB-$54 


POINT X TO MIDDLE OF CONTROL TABLE 


A250 




CMPB 


#48 


KEY NUMBER > 48? 


A252 




BHS 


LA263 


YES (ENTER, CLEAR, BREAK, AT SIGN) 


A254 




BSR 


LA22E 


CHECK SHIFT KEY (ACCA WILL CONTAIN STATUS) 


A256 




CMPB 


#43 


IS KEY A NUMBER, COLON OR SEMICOLON? 


A258 




BLS 


LA25C 


YES 


A25A 


** 
** 


EORA 


#$40 


TOGGLE BIT 6 OF ACCA WHICH CONTAINS THE 
SHIFT DATA ONLY FOR SLASH, HYPHEN, PERIOD, 
COMMA 


A25C 


LA25C 


TSTA 




SHIFT KEY DOWN? 


A25D 




BEQ 


LA20B 


YES 


A25F 




ADDB 


#$10 


NO, ADD IN ASCII OFFSET CORRECTION 


A261 




BRA 


LA20B 


GO CHECK FOR DEBOUNCE 


A263 


LA263 

** 

** 


ASLB 




MULT ACCB BY 2 - THERE ARE 2 ENTRIES IN 
CONTROL TABLE FOR EACH KEY - ONE SHIFTED, 
ONE NOT 


A264 




BSR 


LA22E 


CHECK SHIFT KEY 


A266 




BNE 


LA269 


NOT DOWN 


A268 




INCB 




ADD ONE TO GET THE SHIFTED VALUE 


A269 


LA269 


LDB 


B,X 


GET ASCII CODE FROM CONTROL TABLE 


A26B 




BRA 


LA20B 


GO CHECK DEBOUNCE 


A26D 




FCB 





WASTED SPACE IN VERSION 1.1 
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*** LISTING 6 

A2C3 

A2C5 

A2C6 

A2C8 

A2CA 

A2CC 

A2CD 



LA2CA 



BSR 


LA2FB 


CLRB 




BSR 


LA2FD 


LDB 


#8 


PSHS 


B 


CLRB 





LSRA 



A2CE 




ROLB 




A2CF 




ASLB 




A2D0 




BSR 


LA2FD 


A2D2 




PULS 


B 


A2D4 




DECB 




A2D5 




BNE 


LA2CA 


A2D7 




BSR 


LA2FB 


A2D9 




PULS 


CC,A 


A2DB 




CMPA 


#CR 


A2DD 




BEQ 


LA2E7 


A2DF 




INC 


LPTPOS 


A2E1 




LDB 


LPTPOS 


A2E3 




CMPB 


LPTWID 


A2E5 




BLO 


LA2ED 


A2E7 


LA2E7 


CLR 


LPTPOS 


A2E9 




BSR 


LA305 


A2EB 




BSR 


LA305 


A2ED 


LA2ED 


LDB 


PIA1+2 


A2F0 




LSRB 




A2F1 




BCS 


LA2ED 


A2F3 




PULS 


B,X,PC 


A2F5 




FDB 


0,0,0 


*** LISTING 7 








B3ED 


INTCNV 


LDA 


FP0EXP 


B3EF 




CMPA 


#$90 


B3F1 




BCS 


LB3FB 


B3F3 




LDX 


#LB3DF 


B3F6 




JSR 


LBC96 


B3F9 




BNE 


LB44A 


B3FB 


LB3FB 


JSR 


LBCC8 


F3FE 




LDD 


FPA0+2 


B400 




RTS 






* EVALUATE AN ARRAY 


B401 


LB401 


LDB 


DIMFLG 


B403 




LDA 


VALTYP 


B405 




PSHS 


A,B 


B407 




CLRB 




B408 


LB408 


LDX 


VARNAM 


B40A 




PSHS 


B,X 


B40C 




BSR 


LB3E4 


B40E 


* 


PULS 


B,X,Y 


B410 




STX 


VARNAM 


B412 




LDU 


FPA0+2 


B414 




PSHS 


Y,U 



SET OUTPUT TO MARKING 
* 

* TRANSMIT ONE START BIT 
SEND 8 BITS 

SAVE BIT COUNTER 

CLEAR DA IMAGE 1 ZEROS TO DA WHEN SENDING 

RS-232 DATA 

ROTATE NEXT BIT OF OUTPUT CHARACTER TO 

CARRY FLAG 

* ROTATE CARRY FLAG INTO BIT ONE 

* AND ALL OTHER BITS SET TO ZERO 
TRANSMIT DATA BYTE 

GET BIT COUNTER 

SENT ALL 8 BITS? 

NO 

SEND STOP BIT (ACCB=0) 

RESTORE OUTPUT CHARACTER & INTERRUPT STATS 

IS IT A CARRIAGE RETURN? 

YES 

INCREMENT CHARACTER COUNTER 

CHECK FOR END OF LINE PRINTER LINE 

AT END OF LINE PRINTER LINE? 

NO 

RESET CHARACTER COUNTER 

* 

* DELAY FOR CARRIAGE RETURN 
WAIT FOR HANDSHAKE 

CHECK FOR RS232 STATUS 

NOT YET READY 

RESTORE REGISTERS 

WASTED SPACE IN VERSION 1.1 



GET FPA0 EXPONENT 

* COMPARE TO 32768 - LARGEST INTEGER 

* EXPONENT AND BRANCH IF FPA0 < 32768 
POINT X TO FP VALUE OF -32768 
COMPARE -32768 TO FPA0 

'FC ERROR IF NOT = 

CONVERT FPA0 TO A TWO BYTE INTEGER 

GET THE INTEGER 

VARIABLE 

GET ARRAY FLAG 

GET VARIABLE TYPE 

SAVE THEM ON THE STACK 

RESET DIMENSION COUNTER 

GET VARIABLE NAME 

SAVE VARIABLE NAME AND DIMENSION COUNTER 

EVALUATE EXPRESSION (DIMENSION LENGTH) 

PULL OFF VARIABLE NAME, DIMENSION COUNTER 

ARRAY FLAG 

SAVE VARIABLE NAME AND VARIABLE TYPE 

GET DIMENSION LENGTH 

SAVE DIMENSION LENGTH, ARRAY FLAG, 

VARIABLE TYPE 
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B416 
B417 
B419 
B41B 
B41D 
B41F 
B422 
B424 
B426 



INCB 

JSR GETCCH 

CMPA #', 

BEQ LB408 

STB TMPLOC 

JSR LB267 

PULS A,B 

STA VALTYP 

STB DIMFLG 



INCREASE DIMENSION COUNTER 
GET CURRENT INPUT CHARACTER 
CHECK FOR ANOTHER DIMENSION 
BRANCH IF MORE 
SAVE DIMENSION COUNTER 
SYNTAX CHECK FOR A ")" 

* RESTORE VARIABLE TYPE AND ARRAY 

* FLAG - LEAVE DIMENSION LENGTH ON STACK 
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DISPLAY CHARACTER SET 



HEX 


VALUE 


CHARACTER 


HEX 


VALUE 


CHARACTER 


HEX 


VALUE 


CHARACTER 


Non- 




Non- 




Non- 




Inverted 


Inverted 




Inverted 


Inverted 




Inverted 


Inverted 




00 


40 


e 


18 


58 


X 


30 


40 





01 


41 


A 


19 


59 


Y 


31 


41 


1 


02 


42 


B 


1A 


5A 


Z 


32 


42 


2 


03 


43 


C 


IB 


5B 


[ 


33 


43 


3 


04 


44 


D 


1C 


5C 


\ 


34 


44 


4 


05 


45 


E 


ID 


5D 


] 


35 


45 


5 


06 


46 


F 


IE 


5E 


* 


36 


46 


6 


07 


47 


G 


IF 


5F 


«- 


37 


47 


7 


08 


48 


H 


20 


60 




38 


48 


8 


09 


49 


I 


21 


61 


i 


39 


49 


9 


0A 


4A 


J 


22 


62 


" 


3A 


4A 




0B 


4B 


K 


23 


63 


# 


3B 


4B 


> 


0C 


4C 


L 


24 


64 


$ 


3C 


4C 


< 


0D 


4D 


M 


25 


65 


% 


3D 


4D 


= 


0E 


4E 


N 


26 


66 


& 


3E 


4E 


> 


0F 
10 


4F 
50 



P 


27 
28 


67 
68 


( 


3F 


4F 


? 








11 


51 


Q 


29 


69 


) 








12 


52 


R 


2A 


6A 


* 








13 


53 


S 


2B 


6B 


+ 








14 


54 


T 


2C 


6C 


> 








15 


55 


U 


2D 


6D 


- 








16 


56 


V 


2E 


6E 










17 


57 


w 


2F 


6F 


/ 









Kl 



